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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
a 
® 
® 
® 
THIS SOFTWARE IS A ge UNDER A LICENSE AND MAY BE USED AND sorte * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
aeueee THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
® 
TRANSFERRED. ® 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
* 
® 
we 
a7 
* 
* 
® 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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- E. OUYANG 2=APR-79 
MODIFIED BY: 


v04-001 MMD0331 Meg Dumont seneeteire 12:50 
Delete the check for power fail in the TEST_NBA routine. 
Clear the number of bytes returned on a read block 
when a tape mark is encountered 


v03-017 MMD0317 Meg D 25-Jul-1984 11:13 
Add support for the UCBSL "MEDIA. ID field 


V03-016 MMD0304 Meg Dum 27-Jun-1994 15:24 
Fix to 296 so that oe. READ REVERSE into BOT returns ENDOFFILE 


vO03-015 MMD0296 35-May-1984 9:45 
Fix to fix mnpo26s° A. een must return SS$_NORMAL not 
seated error code. 


v03-014 ROW0355 Ralph 0. Weber 30-APR-1984 
mostly y processing of the 10$M._ OPPOSITE modifier so that its 
use d to I0$_REREADN” and My -REREADP functions by 
ven By "rather than by Comments. s prov ovides some proiection 
against accidential misuse of the 18s CLSEREXCP bit which is 
relivant only for tape class Seiver tapes but which shares the 
same modifier bit as IOSM_OPPOSIT 


v03-013 RASO300 Ron Schaeter 27-Apr-1984 
Add DEVSM_NNM characterise ¢, to DECHAR2 so that these 
devices will have the ‘‘node$"’ prefix. 


;MMD0331 0000 


* © = RORORORORORROTY ea ea a Ss ot 


ooocooocoo 

ooooooco 

Coooooeeo 
* 


oo 
oo 
oo 
WRI DOD NA UE WIN SO ONDA NE ANI NAME WIN IOAN EWI CO OONOAUE WH OWONOUE Ww 


Bete Se Se Se Se Se Be Se Se Fe Se Ge Ge Ge Se Ge Ge Se Se Se Ge Ge Ge Se Ge Ge Ge Fe Ss Ge Se Se Se Se Se Ge Se Se Se Ge Ge Se Se Ge Se Se Se Ge Ge Ge Ge Ge Se 


SOOSCCOOCOOOOOOOOOOOOOOOOoOOOOoOSSoOo 
SOOOCCOCOCOoOoOOoOoOooOoooo 
PUP BBB EP EEE PAA oes 


SOOooooooooooooooooo 
SoOOCOCoCoOoCoOSCoOoOoOoOSooooo 


COCOCCOCOOOCOOOSOOOOOOoOOOo 
SOoOOCOCOOCOOCOOOOCOSOOOCOCSoOoO 
SOOOOCOSOOCOOCOOOOOOOOOCOCoOoOoO 
po leoleleleoleleleleleleleleleoleoleleololeolelelola) 


Cooooooo 


SSSsaaeaae 
SOoQooooooooooooooo 


SOOoOooooooooooooooo 


Soooooooo 
Sooooocoo 
Ot et et ot 


Ss 
- VAX/VMS TS11/TSO4 MAGTAPE SUBSYSTEM DR g- 


& 
5 


$i 


cococo~ 


Wwr-oo 


—DOODWOOCOCOOCSVOOOOOOO0 OC OMMWMOOMOMmCc 
OOONOA VLE WN CO ODNAM EWN  OOODNOUS 


8. do:t8:15 


s 90 thet reverse into BOT ret 
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urns SS$_ENDOFFILE Like other 


225 eg Dumont, 2 
Deleted the check in the drivers 
checked on powerfail to see if the TS 
before reloading registers etc.. This check was no 
longer necessary since Robert added the code TEST_NBA which 
makes sure the controller is available before we allow 
the Q10 to start on the device. 


unit init routine which 
SUBSYSTEM was ready 


Instead of checking or powerfail at TS_INIT check 
for command buffer allocated. Fix for support of 


switchable unibus 


Ralph 0. Weber 
The Paul Painter Memorial Enhancement 
Named for one of the unfortunate customers who suffered much 
reat UCBSL_MT_RECORD secret white tr 
ten magtape driver, this change elim 
CBSL_MS_RECORD in favor of 


to determine the. 
create a user-wri 
use of the device dependent field 
the device independent field, UCB 


Ralph 0. Weber 3 
Change basing for device-dependent UCB from UCBSL_DP_LINK+4 to 
field independent UCBSK_LCL_TAPE_LENGTH. 


This allows the 
device-indpendent UCB to Be altered without having to edit 


ber 9 
for EXESREAD_T 
Kathleen D. Morse 


Change references to IPR TODR to use cpu-dependent 
routine, EXESREAD_TODR. 


Use general addressing mode 


Allow UCB to include new DUAL PORT extension 
changing base of where we begin the 


extension from UCBSL_DPC+4 to UCBSL_DP_LINK+4. 


TRACE | Robert L. Rappaport 
Add conditionally assembled trace facility. 


Robert L. Rappaport 
Prevent reverse into BOT from returning SS$_OPINCOMPL. 


_ _ Robert L. Rappaport 
Prevent logging two errors for each soft retry. 


KDM0002 Kathl 8 
Added SDCDEF, SDEVDEF, SDYNDEF, SPRDEF and SVADEF. 
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0 
0 


;CALL HARDWARE COMMAND EX " ~ ROUTINE 


GET HARDWARE COMMAND INDEX 
:DEFINE TABLE INDEX SYMBOL 
sHARDWARE COMMAND TABLE ENTRY 


EC 
;BRANCH ADDR. ON ERROR COND 


BDST,HC 


-IF_ NB HC 
HC 


HC 
CO*HC=<.-HCTAB>/2 


»MACRO EXHC 

MOVZBL #CD'HC,RO 
«MACRO LOADUBAA 

G* IOCSLOADUBAMAPA 
-ENDM LOADUBAA 
~MACRO GENHC 

. WORD 


JSB 
; GENERATE HARDWARE COMMAND TABLE ENTRY AND CASE TABLE INDEX SYMBOL 


; EXECUTE HARDWARE COMMAND AND BRANCH ON RETRIABLE ERROR CONDITION 


; MACRO TO CALL G*IOCSLOADUBAMAPA 


; LOCAL MACROS 
; LOCAL SYMBOLS 
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: TS11/TS04 COMMAND PACKET DEFINITION 


SDEFINI MS 


MS_CPHD .BLK 
-VIELD mS $ CPH D.0,< 
<COo, 5D - 


<,2>. 

<fE, /M>,- 
“mob. 4> = 
<SwB, .M>,- 
<OPP,,M>,- 


<CVC, ,.M>,= 
<ACK,,M>,= 


1 
1 
MS-CNT .BLKW 1 
1 
1 


z 
“ 
= 
2 
at 
x= 
. 
@ 
- 
x 
x 
ae 


-—BLKW 1 
-VIELD = CHWD ,4,<= 


<EAl,.M>.= 
<ENB, ,M>,- 
: <ESS..M>.- 


; TS11/TSO4 MESSAGE PACKET DEFINITION 


MS_MHD .BLKW 
VIEL MS MHD, 0. <- 


<ACK, MD, = 
> 
MS_LNH .BLKW 1 
MS_RBPC a ! 


MS"XSRO .BLK 
VIELD Ms SRO, d, <- 


<WLK,,M>,= 
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: COMMAND PACKET HEADER 


cf D CODE FIELD 

B5-B6 aT ni 0 FOR TS04 
INTERRUPT ENABLE 
: COMMAND MODE ragtoyas oo 
; B8=REVERSE & B9I=RETR 
SWAP BYTES orgie, 
OPPOSITE B1T(B13) 

AR VOLUME CHECK(B14) 
ACKNOWLEDGE BIT(B15) 
BUS ADDRESS(B15-B0) OR COUNT 
ius witty B17-B16(RIGHT JUST) 


COUN 
3FOR WRITE org Be baad DATA 
;MESSAGE BUFFER ADD ‘= D1 
;MESSAGE BUFFER ADDR: WRD 2 
;MESSAGE BUFFER LENGTH (ALWAYS 14.) 
: CHARACTERISTIC WORD 


ENABLE MESSAGE NUINTERRU ate INTERRUPTS 


TENABLE SKIP TAPE MARKS STOP 


MESSAGE PACKET 
sMESSAGE HEADER WORD 
Miaeaee FODE FIELD 


TRESERVED FIELD 
:MESSAGE ACKNOWLEDGE B11(B15) 
:MESSAGE LENGTH WORD 

‘HIGH BYTE=0,LOW BY 
SRESIDUAL BYTE/POSI 
; EXTENDED STATUS RE 
OF TAPE E DETECT 


ING TAP 
LO OCKED(Bo) 


010(LENGTH) 
COUNT 
ER 0 


ST 
(BO) 
) 


TE=1 
Lime 
Gl 
ED 
B1 
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1 8 <PED, ,M>,= sPHASE ENCODED DRIVE(B3) 
1 $ <VCK,,M>,= :VOLUME CHECK ( 
1 <IE,.M>,- S INTERRUPT WAS ENABLED(B5) 
4 8 <ONL,,M>,= ;DEVICE ON- LIN ) 
1 9 <MOT, .M>.= S TAPE MOVING tas) COMMAND (B7) 
01 0 <ILA,,M>,= S ILLEGAL ADBRESS{B8) 
01 1 <ILC,,M>,= SILLEGAL COMMAND (B9) 
01 : EF,,M>,- NON-EXECUTALBE FUNCTION(B10) 
01 <WLE,,M>,= [WRITE LOCK E 811) 
001 4 <RLL,,M>,= SRECORD LENGTH LONG(B12) 
01 5 <LET,,M>,= [LOGICAL END OF TAPE (B13) 
01 : <RLS,,M>,= SRECORD LENGTH SHORT(B14) 
or 3 - <TMK, ,M>,= ;TAPE MARK DETECTED(B15) 
0018 239 SDEF § MS_XSR1 .BLK EXTENDED STATUS REGISTER 1 
OO1A 40 _VIELD MS x5R) 0, <- : 
001A = 241 <MTE,,M :(PE) MULTI=TRACK ERROR 
001A 4¢ [(NRZ) VERTICAL PARITY ER 
OO1A =. 24 <UNC, .M>,- 7(PE) UNCORRECTABLE DATA ERROR(B1) 
OO1A «244 : :(NRZ) CYCLIC REDUNDANCY CHECK ERROR 
001A 245 <POL,.M>,=- :(PE) POSTAMBLE LONG(B2) 
001A 46 - i (NRZ) phONGITUDINAL are NDANCY CHECK ERROR 
001A 24 <POS,,M>,- 7(PE) POSTAMBLE S 
001A 248 - :(NRZ) NOIS 
001A 249 <IED,,.M>,- : (PE) INVALID END DATA(BS) 
001A 250 - :(NRZ) LRC WA 
001A 251 <1P0,,M>,= + (PE) INVALID POSTAMBLE (BS) 
001A $3 = 7(NRZ) ILLEGAL TAPE M 
001A «25 <SYN, ,M>,= : (PE) SYNCH ERRO nibs) 
001A 254 7(NRZ) FRAME DROPOUT 
001A = 255 <IPR,.M>, - : (PE) IVALD PREAMBLE (B7) 
001A 256 ,1> TRESERVED BIT 
001A 257 <§Ck, .M>,- ZSPEED CHECK (B89) 
001A 258 <DBF,,M>,= 3 (PE) DESKEW BUFFER FAIL(B10) 
001A 259 - :(NRZ) NRZ BOARD FIFO OVERFLOW 
001A 260 <TIG,,M>,- [TRASH IN GAP(B11) 
001A 261 <CRS,,M>,= : CREASE DETECTED(B12) 
001A e6¢ <COR, HD. :CORRCTABLE DATA(B13) 
OO1A 6 <,1>,= ;UNUSED BIT(B14) 
OTA 64 <OLT; .M>,- [DATA LATE(B15) 
> 
001A 266 SDEF  MS_XSR2 .BLKW 1 sEXTENDED STATUS REGISTER 2 
001C 6 -VIELD MS_XSR2,0,<- ; 
orc 68 <DTP,8>,- :DEAD TRACK gpARity 87-80 
1¢ \SK.,M>,= “EXCESSIVE $ 
001¢ 0 <WCF,,M>,- [WRITE CLOCK ‘Far ¢B10) ,BROKEN HARDWARE 
orc 71 <,1>2- :B11 NOT USE 
1¢ 7; <CAF,.M>,- > CAPSTAN ACCELERATION FAIL(B12) 
< oF <BPE, ,M>,- TSERIAL BUS PARITY ERROR AT DRIVE(B13) 
O1C 27% <SIP,,M>,= :SILO PARITY ERR OR(B1 
1¢ ¢3 <OPM, ,M>,- [OPERATION IN PROGRESS (B15) 
> 
1¢ 3 SDEF  MS_XSR3 .BLKW 1 SEXTENDED STATUS REGISER 3 
1E r8 _VIELD MS_XSR3,0,<- : 
1—E 27 <RTB, ,M>,- TREVERSE INTO B0T(BO) 
1€ 80 <LXS,.M>.= [LIMIT EXCEEDED STATICALLY(B1) 
1E <NOI,.M>,- [NOISE RECORD (B2) 


0 

1 
=0 SPACKET BAD(SERIAL BUS PARITY ERROR) 
= 1 ‘Orie LOCK ERROR OR NON-EXECUTABLE FUNCTION 
s “MICRO DIAGNOSTIC ERROR 


TSDRIVER = VAX/VMS TS11/TSO4 MAGTAPE sussyeren DR 8-JAN-19 :5 IV 
vou- ot g- -SEP- =138 33:22 IV 
1€ j <DCK,,M>,= :DENSITY CHECK (B3) 
1E <CRF. MD. SCAPSTAN RESPONSE FAIL (84) 
13 i <REV, (MD = ;TAPE MOVED BACKWARDS (B5) 
1E 5 <OP I. MD .= SOPERATION IN COMPLETE (B86) 
iE : M>-- + TAPE INIT EXCEEDED (87) 
IE : CFEC. *b>,- 7B15-B8, FATAL ERROR CODE(U-DIAGNOSTIC) 
1E § 
1 30 SDEFEND MS 
6CE93008 3 MEDIA_ID_TS11 = “X<6CE9300B> 
6 32 + T$11/TSO4 TSSR TERMINATION CLASS CODES 
999 99 ; 
00000000 $09 39 TCC_NML=0 :NORAML TERMINATION 
00000001 0000 298 TCCATN=1 SATTENTION CONDITION 
0000000 900 99 TECLTSAse [TAPE STATUS ALERT 
0000000 00 300 TCC7FNR= SFUNCTION REJECT 
00000004 0000 301 TCC“REM=4 TRECOVERABLE ERROR(TAPE MOVED) 
00000005 0000 0¢ TCC“REN=5 SRECOVERABLE ERROR(TAPE NOT MOVED) 
00000006 0000 30 TEC“UER=6 TUNRECOVERABLE ERROR{TAPE POSI. LOST) 
00000007 0000 304 TCC“FTL= SFATAL CONTROLLER ERROR 
0000 305 
0000 306; 
0000 307 : FATAL CLASS (FC) CODES IN TSSR 
0000 308: 
0000 309 
00000000 0000 310 FCC_IDF=0 ZINTERNAL DIAG. FAILURE 
00000001 0000 311 FCC~CPE=1 [10 SEQUENCE CROM PARITY ERROR 
00000002 0000 1 FCC“UPE=¢ [U-PROCESSOR CROM PARITY ERROR OR OTHER 
00000003 0000 313 FCC7LAP= SLOSS OF AC POWER DETECTED 
$33 a 
0990 1 ; TS11/TSO4 MESSAGE CODES IN MS_MHD_COD 
0000 318 
00000010 0000 319 msG_END=*0020 END 
00000011 0000 0 MSG~FAL=*0021 FAIL 
9000001¢ 0000 1 MSG"ERR=* 03¢ TERROR 
00000613 0000 2 MSG_ATN=*00 SATTENTION 
00000014 900 ; MSG-LOG=*0024 [LOG (NOT USED) 
i; 
000 6 ; CLASS CODE FOR MESSAGE CODES (MS_MHD_CLS VALUES) 
$00 8 
0 0 9 T**WHEN MSG TYPE=ATTENTION®® 
0 0 CLS_ONF= i0N OFFLINE 
0 : 1 CLSTMDF= RCRD DIAG. FAILURE 
é : **WHEN SG TYPE=FAIL®® 
0 
4 
Si 
§ 338 


Sooooo 
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3 : ; TS11/TSO4 HARDWARE COMMAND MODES/CODES 
41 ' 
4 T LE & ACKNOWLEDGE 
28 HC_NOP=0 ;:simucatt NOP(REAL NO OPERATION 
rt HC" PAK=HC_NOP 4 
0 4 
00 34? 
0 48 
00 34 
0000¢081 $00 29 HC_RDN=“00001!MS_CPHD_M_IE!MS_CPHD_M_CVC!MS_CPHD_M_ACK ;* READ NEXT (FORWARD) 
0000C181 0000 2§ HC_“RDP=*00401!MS"CPHD-M_IE'MS-CPHD_M_CVC'MS_CPHD-M_ACK ;* READ PREVIOUS (REVERSE) 
Bongce 1 O89 55 HC_RRP=*01001!MS_CPHD_M_IE'MS_CPHD_M_CVC'MS_CPHD_M_ACK ;* REREAD PREVIOUS (SPACE RE 
0000¢381 $ 24 HCRRN=*01401 | MS_CPHO_A_IE:MS_CPHD_M_CVC!MS_CPHD_M_ ;* REREAD NEXT (SPACE FWD, R 
00000084 Q 355 HC_WRC=*00094!MS"CPHD-M-IE'MS-CPHD_M_CVC'MS_CPHD-M_ACK ;4 WRITE CHARACTERISTICS 
0000C085 0000 28 HC “Wd = "99008 ns ~EPHD™ -M_IE'MS"CPHD-M_CVC!MS_CPHD_M_ACK ;* WRITE D 
0000285 i 44 HC~WDOR=*01005!MS_CPHD =AITE SAS _CPHDLALCVC:AS_ GPHD ERLACK 7* WRITE DATA RETRY (SPACE R 
9000¢08 000 359 HC_WSM=*000 bits D_M_IE!MS_CPHD_M_CVC!MS_CPHD_M_ACK ;* WRITE SUBSYSTEM MEMORY 
0000C0 000 360 HC“SRF=*00010'MS"CPHD_M_IE'MS-CPHD_M_CVC'MS_CPHD-M_ACK :$ SPACE RECORDS FORWARD 
0000C188 0000 361 HC~SRR=* img CPHD M_IE!MS-CPHD-M-CVC'MS-CPHD-M-ACK ;$ SPACE RECORDS REVERSE 
000 66 sHO_STF=*01010!MS_CPHD_A_IE!MS_CPHB_A_CVC!MS_CPHD_M_ACK :$ SKIP TAPE MARKS FORWARD 
000 363 ;HCUSTR=*01410!MS-CPHD-M-IE!MS-CPHD-M-CVC'MS-CPHD-M_ACK ;$ SKIP TAPE MARKS REVERSE 
0000 364 ;*®NOTEee SKIP TAPE MARR COMMANDS ARE SIMULATED BY "SKIP RECORD COMMANDS®*® 
pooocogs 0000 365 HC_STF=*00010!MS_CPHD_M_IE'MS_CPHD_M_CVC'MS_CPHD_M_ACK ;$ SPACE TAPE MARK FORWAR 
0000C188 0000 66 HC_STR=*00410!MS_CPHD_M_IE'MS-CPHD_M_CVC!MS_CPHD_M_ACK ;$ SPACE TAPE MARKS REVERSE 
00000488 0000 367 HC_RWD=*02010!MS-CPHD-M_IE'MS-CPHD_M_CVC'MS_CPHD_M_ACK ;$ REWIND 
0000C089 0000 68 HC_WTM=*00011 'MS— =CPHD ATE; MS_CPHD_A_CVC (MS _CPHD_AUACK z> WRITE TAPE MARK 
0000C189 0000 § HC_ERS=*00411'MS"CPH MD IMATE MS_CPHD _A_CVC (MS _CPHD_M_ACK z> ERASE 
0000C289 0000 0 HC"WTR=*01011'MS-CPHD-M_IE!MS-CPHD-M-CVC'MS-CPHD-M-ACK :~ WRITE TAPE MARK RETRY (SP 
00 71 ; ERASE, WRTIE TAPE MARK) 
QO00CO8A 000 i HC_BRL=*00012!MS_CPHD_M_IE!MS_CPHD_M_CVC'MS_CPHO_M_ACK ;- MESSAGE BUFFER RELEASE 
0000C18A 000 73 HC_UNL=*00412'MS_CPHD_M_IE'MS_CPHD_M_CVC'MS-CPHD-M-ACK = REWIND AND UNLOAD 
pope eeA 00 74 HC~CLN=*01012'MS-CPHD-M_1E'MS-CPHD-M-CVC'MS-CPHD-M-ACK := CLEAN 
0000C088 Bee 75 HC_DRI=*000135!MS_CPHD_M_IE'MS-CPHD_-M_CVC'MS_CPHD_M_ACK ;= DRIVER INITIALIZE 
O0CO8F 3000 26 HC~GST=*00017!mS_ =CPHD ALTE: RS _CPHD A CVC = RS _ CPHD-M_ACK ;= GET STATUS IMMEDIATE 
7 3 * => DATA XFR 
7 3 + => (SPECIAL) 
3; $ => POSITI 
3 = => FORMAT,CONTROL,INITIALIZE,& STATUS 
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rec) SDEF UCBSL_MS_DPR 

465 $DEF  UCBSL“MS"FMPR 

466 SDEF = UCBSL_MS_PRPR 
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471 SDEF UCBSL_MS_TIMOUT 

47¢ SDEF —UCBSO_MS_TMP 

473 SDEF UCBSL_MS_TMP2 _.BLK 
$f SDEF UCBSQ_MS ~BUFS varie 
476 SDEF UCBSL_MS_TPOSITN .BLKL 
477 SDEF UCBSW_MS_MHD BLKW 


rs Z SDEF UCBSW"MS_ xR 
485 IF OF 


491 
49 hay BL “ACTIVES 0 
a4 ACE-M_ACTIVE=1 


- ENDC 
636 UCBSK_MS_LENGTH=. 
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0 4 3 -SBTTL DRIVER TABLES 
1; 
6 § ; DRIVER PROLOGUE TABLE 
4 
80 5 DPTAB. = :DEFINE DRIVER PROLOGUE TABLE 
00 06 END=TS_END,- SEND OF DRIVER 
000 50 ADAPTER=UBA, = [UNIBUS ADAPTER 
999 208 UcbSiZE=UCBBK -MS_LENGTH, = 
0 509 NAME=TS IVER NAME 
0 : 310 DPT_STORE INIT TROL BLOCK INIT VALUE 
11 DPT“ STORE DDB, DDBSL -ACPD.L. conti ;DEFAULT ACP NAME 
03F B18 DPT"STORE UCB,UCBSB_FIPL.8,8  ;FO 
004 313 DPT™ ~STORE UCB-UCBSL~ “DEVCHAR,L,- :DEVICE CHARACTERISTICS 
004 515 EVER IR= : DIRECTORY STRUCTURED 
0043 516 i DEVSM~AVL- > AVAILAB 
0043 517 i DEVSM-ELG- : ERROR LOGGING ENABLED 
0043 518 i DEVSM~1DV- : INPUT DEVICE 
0043 519 i DEVSM~ODV- ; OUTPUT DEVICE 
0043 520 ‘DEVSM_SD1~ : SINGLE DIRECTORY DEVICE 
0043 521 iDEVSM~SQD> : SEQUENTIAL DEVICE 
004A 3¢¢ DPT STORE UCB. goces _DEVCHAR2,L,-: DEVICE CHARACTERISTICS 
004A 5 <DEVSM_NNM>~ : PREFIX NAME WITH ‘ ‘nodes’ 
0051 524 DPT_STORE UCB, "OceSe. DEVCLASS,B, ts TAPE ;DEVICE CLASS 
0055 525 DPT“STORE UCB.UCBS$B_DEVTYPE,B,01$ _1S11  :DEVICE TYPE 
0059 526 DPT"STORE UCB UCBSL “MEDI 6 ee MEDIA sit :DEVICE MEDIA ID 
0060 327 DPT“STORE UCB.UCBSW_DEVBUFSIZ,u, O48" AULT BUFFER SIZE 
0065 528 DPT-STORE UCB,UCBS$L—~DEVDEPEND,W, exec b>: OLEAUE T TAPE PARAMETERS 
006A 369 : FORMAT=NORMAL11,DENSITY=1600BP1 
006A 530 DPT_STORE UCB,UCB$B_DIPL.8,21  :DEVICE IPL 
006E 531 DPT-STORE UCB.UCBS$B_-ERTCNT.B,16 :ERROR RETRY COUNT 
007 33¢ DPT-STORE UCB.UCBSB-ERTMAX.B.14 :MAX ERROR RETRY COUNT 
0076 «53 DPT“STORE REINIT CONTROL BLOCK RE-INIT VALUES 
0076 534 DPT-STORE CRB,CRBSL_INTD+4,D TSSiNT : : INTERRUPT SERVICE ROUTINE ADDR. 
0078 535 DPT“STORE CRB, CRBSL— -INTDevECEL UNITINIT,0,TS_INIT ;UNIT INIT 
0080 536 DPT-STORE DDB.DDBSL~DDT,D.MS$DDT ;DDT ADDRESS 
0085 537 DPT STORE : 
00000001 0000 538 -MDELETE DPT_STORE 
0000 539 
0000 $40 ; 
2093 342 ; DRIVER DISPATCH TABLE 
4 Py 
2399 544 DDTAB «MS, - 7 (MS=GENERIC NAME)DRIVER DISPATCH TABLE 
0000 545 Is “STARTIO,=- TSTART 1/0 OPERATI 
00 346 [UNSOLICITED INTERRUPT 
00 54 Oe FUNCTABLE ZFUNCTION DECISION TABLE 
909 548 +IOCSCANCELIO, - [CANCEL 1/0 ENTRY POINT(STANDARD) 
90 249 TS_REGDUMP, SREGISTER DUMP ROUTINE 
00 550 <BT4$<1423584>, >DIAG. BUFFER SIZE 
; i <<1423>94+EMBSi_ _DV_REGSAV> ;ERROR BUFFER SIZE 
53 ; 
03 34 t HARDWARE COMMAND TABLE - MODES/CODES 
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SPACE FILES 
sWRITE TAPE MARK 
SeeNEW*eWRITE TAPE MARK RETRY 
s**NEWeeCLEAN TAPE 
SENSE MODE 
SET MODE 
;REWIND 
sREWIND AND UNLOAD 
sSKIP RECORDS 
sSKIP FILES 
sWRITE END OF FILE 
sACCESS FILE AND/OR FIND DIRECTORY ENTRY 
;ACP CONTROL FUNCTION 
;CREATE FILE AND/OR CREATE DIRECTORY ENTRY 
sDEACCESS FILE 
sDELETE FILE AND/OR DIRECTORY ENTRY 
sMODIFY FILE ATTRIBUTES 
sMOUNT VOLUME 
;READ FUNCTIONS 
;READ LOGICAL BLOCK FORWARD 
;READ PHYSICAL BLOCK FORWARD 
s*NEW*REREAD NEXT 
s*NEW*REREAD PREVIOUS 
SREAD fh BLOCK 
SWRITE FUNCTIONS 
ITE CHECK FORWARD 
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T*NEWEWRITE RETR 
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S> ;DEACCESS FILE 
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:MOD ut FILE ATTRIBUTES 
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[UNLOAD VOLUME 
;RECALIBRATE (REWIND) 
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oF 1g IF DF TS_TRACE 
OF ie -SBTTL + TRACE_IRP ard TRACE_STATUS 
oF 719 ; Routines to record IRP and 1/0 status contents in the trace table. 
F 720 ; Trace table entries are 96 bytes long so that they Line up nicely in 
oe f 1; a dump. H 
oF 7 : ; TRACE_IRP 3! 
OOF 724; :! 
OOF 725 ; Inputs: 3! 
Boe 726 ; R3 => IRP il 
ore 7e7 ; RS => UCB 3! 
OOF 728 i“: 
OOF8 729 TRACE_IRP: 
OOF8 730 
OOF8 731 BBC #TRACE_V_ACTIVE,- :; If trace table not intialized, 
pore 7 ; UCBSW_TRACESTS(R5),20$ : branch around. 
OOF 73 MOVQ RO,-(SP) ; Save RO and Ri. 
OOF8 734 MOVi ; RO => IRP to trace. 
OOF8 3? CMPL UCBS$L_TRACEND(RS) - ; See if we should circle back to start 
OOF8 736 UCBSL_TRACEPTR(R5S ; of trace table. 
OOF8 737 BGTR 10$ ; GTR implies NO. 
OOF8 738 MOVL UCB$L_TRACEBEG(R5) ,- ; TRACE_PTR => base of trace table. 
ite 739 UCBSL_TRACEPTR(RS) 
OOF 740 10$: 
ore os MOVL UCBSL_TRACEPTR(RS) ,R1 ; R1 => area in trace table to use. 
OOF8 74 MOVQ (RO)+,(R1)+ ; Twelve quad words are 96 bytes. 
OOF8 744 MOVQ (RO)+,(R1)+ 
OOF S 745 MOVQ (RO)+,(R1)+ 
OOF 8 46 MOVa (R0)+,(R1)+ 
OOF8 747 MOVQ (RO)+,(R1)+ 
OOF8 748 MOVQ (RO)+,(R1)+ 
OOF8 749 mMOVQ (RO)+,(R1)+ 
OOF8 750 MOVQ (RO)+,(R1)+ 
OOFR 751 MOVQ (RO)+,(R1)+ 
OOF 8 P38 mMOVQ (RO)+,(R1)+ 
OOF8 75 MOvVa (RO)+,(R1)+ 
site oe mova (RO)+,(R1)+ 
wit 756 MOVL UCBSL_TRACEPTR(RS) ,R1 ; R1 => area in trace table to use. 
OOF 757 MOVL R3,(RT) ; Trace entry => IRP. 
OCIF 758 MNEGL #1,4(R1) : Init flag field. 
a 759 MNEGL #1, IRPSL_ARB(R1) : Init field for I/O Status #1. 
()F 760 MNEGL #1, 1RPSL_ARB+4(R1) - Init field for 1/0 Status #2. 
OOF8 761 MOVa (SP)+,R0 : Restore RO and R1. 
(OF P66 208: 
OOF 76 RSB 
OF 764 
OF8 765 ; TRACE_STATUS 
OOF 766 ; 
OOF 787 ; Inputs: 
OOF 768 ; 
OOF 76) ; RO = I/0 status value #1. 
OF 770 ; R5 => UC 
oF al 3 UCB$i_DEVDEPEND = I/O status #2. 


b 4 

T rae} = VAX/VMS 1S11/TSO4 MAGTAPE SUBSYSTEM DR 9-0 198) AF: 33332 ON eR Macro V04-00 Page 16 
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dor ah, TRACE_STATUS: 

of 775 BBC #TRACE_V_ACTIVE,=- ; If Trace table not active, branch. 

OOF 776 UCBSW_TRACESTS(RS5) , 30S 

OF8 777 PUSHL R2 ; Save register. 

Baee ore MOVL UCBSL_TRACEPTR(RS),R2 ; R2 => area in trace table to use. 

Mit 780 MOVL RO, IRP$L_ARB(R2) ; Save I/0 status. 

OOF8 781 MOVL  UCBSL_DEQDEPEND(RS),- : ” 

OOF 8 18¢ IRPSL—ARB+4(R2) 

OOF8 7 POPL R2 ; Restore register. 

pore 78s 30s: ADDL #96,UCBSL_TRACEPTR(RS) ; Point to next entry. 

OOF8 786 : RSB 3; Return to caller. 

OOF8 ee 

OOF8 788 -ENDC 
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OF 73) is -SBTTL UNIT INITIALIZATION ROUTINE 
: 288 3 “Tas, ROUTINE IS CALLED WHEN THE DRIVER IS LOADED OR ON POWERFAIL 
a 794 ; 
oF Oe 3 ee init 
BaF 797 ;: 
OF 798 ; INPUT: 
OOF 799 ; R5 = UCB ADDRESS 
Boe 39 3 R4 = EQUIVALENT CSR FOR 1S11 
OOF a 3; OUTPUT: 
OOF 03 ; 
pore 04 
OF8 805 TS_INIT: 
10 <A8& OOF8 06 BISW #UCBSM_ONLI > ; Always mark 1TS11 as online since 
64 AS OOFA 807 UCB$W_STS(R5) ; interrupts are not normally enabled 
OOFC 808 3; we have no method to set it on 
OOFC 809 3; dynamically. 
05 =i Ooce gio 158 BRB 50$ : Go to allocate buffer and load registers 
10 AA OOFE aig BICW #UCBSM_ONLIN NE. ; Only reason for marking TS11 offline 
64 AS 0100 81 UCBSW_STS(R5) : is lack of pool space for PACKET. 
0102 814 20$: 
05 b1Re 815 RSB RETURN 
010 816 50S: 
0103 817 oat DF yt yeace 
0103 818 BBS #TR ACTIVE ; If trace table already intialized, 
0103 819 UCBs CORACEST SERS) . 52$ ; branch around. 
0103 820 MOVL #508 96+16 mall ; Allocate trace table for 50 entries. 
0103 821 PUSHL GPEXESGL_N AGED 3; Save nonpaged IPL. 
0103 B66 MFPR PR LeGPERESCL _NONPAGED 3; Use current IPL. 
0103 82 JSB GE XESALONON 3; Get from cn a og A memory. 
0103 824 POPL aa NONPAGED 3; Restore ponpege 
b103 a5? BLBC 3 Space not available, King around. 
0103 $6 CLRQ (R2)+ : Initialize trace table header for SDA. 
0103 828 MOVW R1,(R2)+ s gove size. 
0103 829 MOVW #DY YNSC SCS, (R2)+ 3; Typ 
0103 830 CLRL (R2)+ 3 has header upto 16 byte boundary. 
0103 831 MOVL R2,UCBSL_TRACEBEG(RS) : Save pointer to base of trace tabl 
0103 3 MOVL R2.UCBSL~TRACEPTR(RS) Pointer to next area to use. 
bI08 ADDL3 #508 3 Pointer to beyond end of trace 
1 4 UCBSL. fRACEND(RS) ct. 
010 5 BISW WTRATE M_ACTIVE 3 eadleaie Trace table inited. 
010 6 UCBSW “ TRACESTS (RS) 
1 7 52$: 
1 3 -ENDC 
51 $ AS oO 01 3 MOVL UCBSL_CRB(R ;GET POINTER TO CRB 
4 Al DO 0107 40 MOVL  CRBS$L7 TNs reSw MAPREG(R1) - 
O0E8 C5 19 4 UCBSL_MS L| AVE CURRENT UBA MAP CONTEXT. 
50 2C Al DO 0100 4g MOVL CRBSL {NTDSVECSL IDB(R1), ‘3 >GET ree TO IDB 
04 A0 55 00 111 4 MOVL pe IDBSL_OWNER (RO) :MAKE UC F IDB 
51 20 D0 115 B44 MOVL #32,R1 :SIZE OF WORK Bur FER FOR 1$11(=32.) 
52 0086 C D 118 45 MOVL AF pasos 31F THE BUFFER HAS ALREADY BEEN ALLOCATED 
25 12 11D 46 BNEQ 60$ ‘BRANCH AROUND ELSE ALLOCATE THE BUFFER 
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ESGL_NONPAGED ;SAVE NONPAGED IPL 


G*EXESGL_ 
#PRS_IPL7G*EXESGL_NONPAGED ;USE CURRENT [PL 
G*EXESALONONPAGED 3GET FROM NON-PAGED MEMORY 
6 EXE SCL NONPAGED sRESTORE NONPAGED IPL 
57$ : Space available, branch aroundd. 
§ ; Branch on allocation failure. 


YES, R1=SIZE OF ALLOCATED BLOCK 
; R2°HAS ADDR. OF THE BLOCK 
R2,UCBSL_MS_TSPT1(R5)  ;STORE ADDR. IN UCB 


UCBSW_BOFF EQ UCBSL_SVAPTE+4 


UCBSW-BCNT EQ UCBSW~BOFF+2 

UCBSL-SVAPTE (RS) ,~ 

UCBSQ-MS_TMP1(R55 ;SAVE UCBSL_SVAPTE, W_BCNT, W_BOFF. 
R1,UCB$W_BCNT(RS) ;LOAD BYTE COUNT INTO UCB 


#*XFEOO,R2,UCBSW_BOFF(RS) ;LOAD BYTE OFFSET IN UCB 
S*#VASV_VPN,S*AVASS_VPN,R2,R2 ;GET VIRTUAL PAGE # 
G*MMGSGL_SPTBASE ,RO GET ADDR. OF SYS. PAGE TABLE 


(RO)CR2],UCBSL_SVAPTE(RS) ;STORE SVA OF PTE FOR WORK BUFFER 
LOADED BCNT,BOFF ,@SVAPTE FOR WORK BUFFER 
DIRECT DATA PATH IS USED FOR COMMUNICATION 
UCBSL_CRB(R 


% 5) ,R1 ; RI => CRB 
UCBSL_MS_OMPR(R5S) ,CRBSL_INTD+VECSW_MAPREG(R1) ;IF NEQ USE OLD MAP RE 
80$ ;GOTO LOAD MAP REGISTER 


CRBSL_INTD+VECS$B_DATAPATH(R1) ; INSURE DIRECT DATA PATH(=0) 
TALLOCATE MAP REGISTER(S) TO MAP UNIBUS 
UCBSL_CRB(R5),R 


),R1 ;GET POINTER TO CRB 
CRBSL~INTD+VECSW_MAPREG(R1) ,UCBSL_MS_OMPR(RS) SAVE OLD MAP REGISTER 


UCB$L_SVAPTE(R5) ,- > Save 

UCBSQ"MS_BUF SVAPTE(R5) ;__ facilitate later remapping. 
;T0 SBI ADDRESSES 

; THE NO. OF MAP REGISTER AND STARTING 

; MAP REG. NO. ARE STORED IN CRB 

;LOAD MAP REG. TO BE USED 


message buffer parameters to 


; CALCULATE UNIBUS ADDR. FOR COMMAND PACKET, STORE IT IN UCB 
MOVZWL UCBS$W_BOFF (RS) ,RO :GET BYTE OFFSET 


UCBSQ"MS_TMP1(R5),- 
UCBSL~SVAPTE (RS) ;RESTORE SVAPTE, BOFF, BCNT 
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TSORIVER = VAX/VMS_TS11/TSO4 MAGTAPE SUBSYSTEM DR 8-JAN-1985 17:35: AX/VMS Macro V04-00 Page 19 
Voueoot UNIT {NITIALIZATION ROUTINE ets 1 bbiiaste DRIVER.BUGSRCITSDRIVER.MAR:1 >, (1) 
1 246a5 00 01 9 MOVL UCBSL_CRB(RS),R1 -GET CRB 
39 4 al ps 13¢ $38 INSV CRESLINTD*VECSW_MAPREG(AT) #9 79,RO : HGH 9 BITS 
OOBA 23 3 D 18 900 MOVL RO yCBSi ns TSPT2(R5)  ;STORE IN UCB 
058 CS D0 OIAA 2 1 MOVL  UCBSL_MS~TMP2(R5),- 
4 Ai . i 3 : am CRBSL-INTD+VECSH_AAPREG(RI)  : RESTORE UNIBUS MAPPING CONTEXT 
50 FE f a 18 904 ASHL  #=2,R0,R0 SMODULO 4,SHIFT OUT 2 O'S 
OE 02 0 FO 187 905 INSV = RO, #2, #14, R1 ; INSERT 82-B15 
50 F2 f 78 18¢ 906 ASHL = #=14, RO, RO ;SPIFT OUT B2-B15 
02 00 30 FO cl 907 INSV —_ RO, #0, #2,,R1 yINSERT B16-B17 
OoBE cS = «51_—és«BO 1C6 908 MOVW  R1,UCBSW_MS_TSPT3(R5) | ;STORE COMMAND PTR IN UCB 
01¢B «910; 
1¢8 git ; ISSUE WRITE CHARACTERISTIC COMMAND TO TELL MESSAGE BUFFER ADDR. TO TS11 
50 0086 ¢S DO O01CB 318 ? MOVL -UCBSL_MS_TSPT1(R5),RO | ;COMMAND PACKET ADDR. IN RO 
60 C084 BF BO 0100 914 MOVW #<HC_QRCTMS CPHD M_ACK>,MS_CPHD(RO) ;GET COMMAND PACKET HEADER 
008A C3 DO 13 915 MOVL  UCBSC_MS_TSPT2(R5)7MS_BACTTRO) ;STORE CHAR. BUFFER ADDR. 
02 a0 08 cO 010s 916 ADDL  #8,MS_BACT(RO) :POINT TO CHAR. BUFFER NOW 
06 AO 08 BO O1DF 917 MOVW  #8.MS~CNT(RO) *STORE BYTE COUNT FOR CHAR. DATA 
00BA 3 D0 iE 918 MOVL § UCBSL“MS_TSPT2(R5S).MS_MBAQ(RO) ;STORE MESSAGE BUFFER ADDR. 
08 AO 10 CO O1F9 919 ADDL #16,MS_MBAO(RO) > AS CHAR. DATA 
OC AO. OE 80 O1ED 920 MOVW #14-:MS“LNTH(RO) SLENGTH OF CHAR. DATA=14. 
OE AO B4 O1F1 921 CLRW = MS_CHWO(RO) :ZERO CHARACTERISTIC WORD 
O1F4 «9 : :**=>NO MESSAGE BUFFER RELEASE INTERRUPT 
O1F4 9 :#* ,NO ATTENTION INTERRUPT, AND NO 
ir 3 4 tee §KIP TAPE MARKS STOP 
O1F4 3 6 > LOAD COMMAND PTR IN DEVICE REGISTER TSDB, UCB 
64 OOBE CS RO O1F4 928° MOVW UCBSW_MS_TSPT3(R5),(R4) :LOAD INTO TSDB 
0400 af as iF 929 BISW  #UCBSA_MS_LBA,UCB$W_DEVSTS(RS) ;MARK LOADING MESSAGE BUFFER 
OiFF 930 ; ADDR. INTO TS11. 
0S OF 931 RSB SRETURN 
9200 9 é 
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; TEST_NBA = 


Sete Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge 


TEST_NBA: 
POPL 


2 


H 4 
04 MAGTAPE SUBSYSTEM DR mimes fi Ani? 
FFER ADDRESS) 4 00:1 


INPUTS 


OUTPUTS: 
Message buffer established in TS11. 


0S: 


: ISSUE 


“SEP=1 


39 ites Fl Macro y04-00 
71 DRIVER.BUGSRCITSDRIVER.MAR; 1 


-SBTTL TEST NBA (NEED BUFFER ADDRESS) 


ubroutine called from STARTIO to determine if the wil has 


a valid m eyssepe bu fer. If YES, then we rig SM aD f NOT, w 


revestabll 


message buffer obtained at SY 


Eh INIT time. 


fe e 20 
he (1) 


This routine 5 teeny that the following UCB fields were initialized 


at UNIT INIT t 
UCBSQ_MS_BUFSVAPTE 
UCBSL-MS_OMPR 


RS => UCB 


UCase bec ns? 
BICW CBSA _M 
ucose. Best ecks) 


4) 
BBS #MS_TSSR_V_SSR,RO,10$ 
60$ 


BBS #MS_TSSR_V_NBA,RO,20$ 


MOVZBL S*#SS$ -NORMAL RO 
JMP @UCBSL~DPC(RSS 


‘ 
: 
: 


; Pop return off stack in case 
; This bit maybe left on from iNIT 


if 


setting of switches inside drive so 
dictate. We clear it here because 


this is a convenient place. 
; R1 => CRB 


MOVL UCBSiL_CRB(R5),R1 

ASSUME ID CSR 

MOVL @CRB$C_INTD+VECSL_IDB(R1) ,R4 ; R4 => CSR. 
MOVW R 


contains TSSR register. 


Branch to continue if 1S11 
Branch to failure if NOT ready. 


Branch around if we NEED to re- 
establish message buffer addres 
Else indicate success and 
return to caller. 


MOVL CRBSL_ pore’ cs * guateemieae! E - 
UCBSL-M 


MOVL ucB BSL ~AS OM Ra 
CRBSL_ INTDSVECSY _MAPREG( 


;SAVE CURRENT UBA MAP CONTEXT. 
i, Setup to map UNIBUS just in case 


ASSUME UCBSW pore EQ UCBSL_SVAPTE+4 
SW_BOFF + 


ASSUME UCBSWIBCNT 
MOva UCBs SVAPT 


MOVQ UCBS$Q_MS "BU 
UCBSL-SVAPT 


3233 
- 


LOADUBA 


R 
1¢ ;SAVE UCBSL_SVAPTE, W_BCNT, W_BOFF. 
SVAPTE(RS).-2 Re Restore paraneters fo remap message 


buffer in UNIBUS space. 


; Reload UNIBUS map registers for 


message buffer. 


WRITE CHARACTERISTIC COMMAND TO TELL MESSAGE BUFFER ADDR. TO TS11 


MOVL UCBSL_MS_TSPT1(R5) ,RO 


; RO => command packet 


ready. 


S. 
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~ TEST NBA (NEED BUFFER ADDRESS) -SEP-1984 00:18:1 DRIVER BUGSRC TSORIVER.MAR; 1 (1) 
C084 BF B0 & 3 MOVW #<HC_WRC!MS_CPHD_M_ACK>,= 
60 MS_C CPHD(RO)~ 3 Move command (WRITE vane ene dd ot stata 
94 ; _to 1ST word of command packet. 
0084 C b0 444 MOVL RS-BACTORD) - ; "a Drees address of packet in 
02 AO OB co 38 ADDL <MS BACT (RO) $ Update. to pom to CHARACTERISTICS 
8 38 : uffer beyond packet. 
06 AO 08 8 8 9 MOV CNT(RO) :St tore byte count for char. data 
O0BA C5) oD fF 1000 MOVL UcbRe MS_TSPT2(R5),- : Store UNIBUS address of PACKET 
08 A $3 1001 MS O(RO) : into the CHARACTERISTICS data. 
08 AO 1 co $2 } ¢ ADDL nie. mS OnBAO (RO) 3 Message BUFF is 16 beyond packet. 
OC AO 3 B0 83 1004 MOVW #14,MS | ae sLenety OF CHAR. ge 
OE AO B4 gp 1 05 CLRW = MS_CHWBCR 2ERO CHARACTERISTIC WORD 
1 6 i #*=>NO “fessace BUFFER RELEASE AANTERRUPT 
70 100 pee TTENTION INTERRUPT, AND NO 
0270 1008 tee gRIPS TAPE MARKS STOP 
70 1009 DSBINT 
=) 64 OOBE CS B0 76 1011 MOVW UCBSW_MS_TSPT3(R5), wey ;LOAD INTO TSDB 
3 Ise vr cece 40$,#2 ; Wait for interrupt. 
09 = se Iie 30$ = 50$ ; Branch around powerfail branch. 
6 90 101 408: SETIPL UCBSB_FIPL<RS) ; Lower IPL in case of TIMEOUT. 
1D 11 0294 1017 RB 60$ ; Branch if we had POWERFAIL. 
0596 1019 50s 
51 24 AS DO bSoe 1920 MOVL UCBSL_CRB(R5) ,R1 ; R1 => CRB. 
a CS DO 029A 1021 MOVL UCBSL_MS_TMP2(R5),- : Restore previous mapping context. 
4 Al O29E 10 § RBS. _ INTDeVEC Sy MAPREG(R1) 
QOOEO cS) «7D AO 10 MOVa UCBSQ_MS_TMP1(R5J,- ; And aiso transfer parameters. 
78 AS AS 1024 yest SVAPTE (RS) 
OA €0 x 1025 BBS S_TSSR_V_NBA : Test if all that had any effect 
07 ggce C5 O2A8 1026 UCBSW_MS SISSRCAS) 60$ ; by seeing if we still have NBA. 
01 9A O2AC 1027 MOVZBL 7 #SS$_NORMA BAL RO 3 Else indicate success and 
009c DS_)—s«17 Dear 19 8 sa JMP @UCBSL DPC (RSS ; return to caller. 
0 53 1030 3; Terminate the I/0 function 
50 0084 8F 3C s B + 1 MOVZWL #SS$ PEE CREME RO ; by returning the OFFLINE status and 
009C DS) =17 B8 1032 JMP @UCBSL_DPC(RS) 3; return to caller. 
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v04-001 START 1/0 OPERATION Bo Nn 1382 b0;7 32 LORIVER. BUGSRC TSDRIVER.MAR; 1 . (1) 
BC ] $ SBTTL START 1/0 OPERATION 
+3 } § : TS_STARTIO = START 1/0 OPERATION ON DEVICE 
+! } 3 ; THIS ENTRY POINT IS ENTERED TO START AN I/O OPERATION ON TS11/TS04 
BC 40 : INPUTS: 
BC 1 4g : R3 = ADDRESS OF 1/0 PACKET. 
BC 4? ; R5 = UCB ADDRESS OF DEVICE UNIT 
Oe 43 : OUTPUT: 
9 BC 1049 : FUNCTION DEPENDENT PARAMETERS ARE STORED INTO THE DEVICE UCB 
BC 1048 ; ERROR RETRY COUNT IS RESET, AND THE FUNCTION IS EXECUTED. A 
8 4 1903 ; FUNCTION COMPLETION THE OPERATION IS TERMINATED THRU REQUEST COMPLETE. 
Beet 8a) i 
02BC 1988 TS_STARTIO: zSTART 1/0 OPERATION 
ogac 1054 IF DF TS_TRACE 
psec 1932 oe TRACE_IRP ; Trace this IRP. 
FF41 30 9 BC 1987 BSBW TEST_NBA : Assure that TS11 has valid MESSAGE 
03 5 8 pser 1939 BLBS rRO,5$ : LBS implies success. GOTO continue. 
O4E 1 8 ce 1369 $$ BRW FCNEXT ; Else branch to terminate function. 
908) 3 90 3 1062 MOVB UCBSB_ERTMAX(R5) ,UCBSB_ERTCNT(R5) ; INITIALIZE ERROR RETRY COUNT 
008s AS B0 9 ce 1063 MOVW IRPSW_FUNC(R3) ,UCBSW_FUNC(RS) ;SAVE FUNCTION CODE & MODIFIER 
50 38 A nyt) be ite MOVL IRPSL_MEDIA(R3) ,RO GET PARAMETER LONGWORD 
D6 1 ; 
Be i ; MOVE FUNCTION DEPENDENT PARAMETERS TO UCB 
D6 1069 ° 
06 EF 4 1990 EXTZV #IRPSV_FCODE ,MIRPSS_FCODE,- ;EXTRACT 1/0 FUNCTION CODEE 
51 20 a3 D9 1071 IRP$W_FUNC(RS) ,R1 ; 
51 D1 pc 1 2 CMPL #10$_SPACEFILE,R1 7SPACE FILE FUNCTION? 
13 DF 107 BEQL s1F EQL YES 
51 D1 —1 1074 CMPL #10$_SPACERECORD,R1 ;SPACE RECORD FUNCTION? 
2 13 —E4 1075 BEQL s1F EQL YES 
51 A OD 3 1 6 CMPL #10$_SETCHAR,R1 »SET CHARACTERISTICS FUNCTION? 
4618 €9 107 BEQL sIF EQL YES 
ea &B 1 8 CMPL #10$_AVAILABLE,R1 sAVAILABLE function? 
SA 13 EE 107 BEQL sIF EQL YES 
51 Op 01 FO 61080 CPL #108 READPBLK+1 RI DISJOINT CODE? 
6C 1A F3 1081 BGTRU 1008 s1F GTRU NO 
‘5 1 j CASE R1,<- DISPATCH LOGICAL FUNCTIONS 
5 70$,- TREWIND AND SET OFFLINE 
F5 1084 g08.- 7SET MODE 
F5 1085 $,- s REWIND 
‘5 1 $ 10$,- *SKIP FILE 
‘5 1 g $,- :3KIP RECORD 
F5 1088 0$,- >SENSE TAPE MODE 


4 
TSDRIVER = VAX/VMS 1S11/TSO4 MAGTAPE SUBSYSTEM DR §8-JAN-1985 17:35:59 VAX/VMS Macro V04-00 Page 23 
Vounous START 1/0 OPERATION g- -SEP-1 198, boi 38338 LORIVER. BUGSRCJTSDRIVER.MAR; 1 hp 
FS 1 89 90$,- jWRITE EOF 
F5 1090 > L aiteeies REW INDOF F 
51 0 a2 1091 SUBW 6s #{0$_READPRESET~10$ “READPBLK=7,R sCONVERT TO DENSE FUNCTION CODE 
631 ; 3 BRB 1108 pee ast. U riug NEED BE ADJUSTED 
C 1094 ; 
¢ a6 ; SPACE FILE FUNCTION = SET SPACE COUNT AND PROPER FUNCTION 
€ 1097 ° 
51 92 3¢ € 1098 10$:  MOVZWL #COHC STF RI :SET SPACE FILE UfORWARD 
BS O30F 1099 TStw OR 7SPACE FILE FORWARD? 
Ne 14 1 1190 BGTR 40% [IF GTR YES 
51 05 9A 0313 11 MOVZBL #COHC_STRARI [SET FOR SPACE FILE REVERSE 
OA 11 0316 11 go BRB 30$ ; 
18 1104 
i i : SPACE RECORD FUNCTION = SET SPACE COUNT AND PROPER HARDWARE COMMAND 
18 1107 ° 
51 09 9A 8 i8 1198 20$: MOVZBL #CDHC_SRF,R1 7SET FOR SPACE RECORD FORWARD 
50 B65 0318 1109 TSTw RO TSPACE RECORD FORWARD? 
06 14 031D 1110 BGTR 40% SIF GTR YES 
51 07 GA O31F 1111 MOVZBL #CDHC_SRR,R1 'SET FOR SPACE RECORD REVERSE 
50 50 AE 03 : 1118 30$: MNEGW AR SCONVERT TO POSITIVE COUNT 
0084 C5 50 BO 0325 1113 40$:  MOVW RO UCBSW_MS_SPACNT(RS) SET SPACE COUNT 
43 12 «O32A 1114 BNEQ 11 :IF NEQ SPACING REQUIRED 
51 00 9A O32c 1115 MOVZBL #CDHC_NOP,R1 :SET FOR NO OPERATION 
3E O11 O3e 1116 BRB 110$ : 


<- 


a ae 
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TSO04 MAGTAPE SuBSYSTER DR §8-JAN-1985 17:35:5 AX/VMS Macro y04-00 Pa ra 
TI 823th 138e b0:18:18 LORIVER.BUGSRC TSDRIVER.MAR; 1 we (2) 


o-~- 
vm 
ma. 
m-> 
>™ 


S 
/0 
1 #1119; 
! i y ; SET CHARACTERISTICS FUNCTION = STORE NEW TAPE CHARACTERISTICS 
1 : [®*#*TS11/TSO4 HAS ONLY ONE CLASS AND TYPEeeee 
40 a5 3843 80 H i : 508: MOV IRPSL_MEDIA(R3) ,UCBSB_DEVCLASS(RS) ;SET NEW DEVICE CLASS AND TYPE 
6 11 5 
? 1 3 SET MODE FUNCTION = STORE NEW TAPE MODE 
6 1129 ° 
42 AS 3 a BO 6 1130 60$: MOVW {BL EDT AC? (Rg) -UCBSU_DEVeUE S1Z(R5) SET NEW DEFAULT BUFFER SIZE 
7C a5 CA BO 1131 MOVW IRPSL_-MEDIA+4(R3) ,UCBSW_BOFF(RS) ;SAVE NEW TAPE CONTROL PARAMETERS 
51 14 OA 40 11 ¢ MOVZBL #CDHC"SCH,R1 7SET DISPATCH INDEX 
2A «1103431 BRB 1108 ; 
Rete Iie 
8 $2 i $ > LOGICAL REWIND AND SET TAPE OFFLINE = CONVERT TO UNLOAD COMMAND 
0345 1138 ° 
51 01 OA O33 1139 70$: MOVZBL #CDHC_UNL,R1 SET FOR UNLOAD COMMAND 
25 11 0348 1140 BRB 110$ 3 
034A 1141 
034A 1336 : 
Osea 1137 ; AVAILABLE FUNCTION = Equivalent of REWIND(NOWAIT) and clear of UCBSM_VALID. 
03a 1145 
034A 1146 75$ 
OOAS BF BO 034A 1147 MOVW #10$ REWIND! IOSM_NOWAIT,-; Simulate a REWIND NOWAIT. 
QO9A C5 O34E 1148 UCBSO_FUNC(RS) tan 39 
0800 8F AA 0351 1149 BICw #uUCBSA_VALID,- 3 And clear valid oit. | 
64 AS 0355 1150 UCBSW_STS(R5S ; and fall thru to rewind logic. 
0357 1151 
B327 1136 5 
B32) W132 ; LOGICAL REWIND FUNCTION = CONVERT TO PHYSICAL FUNCTION 
0357 1155 ° 
51 03 9A O88) 1186 80S: MOvZeL #CDHC_RWD,R1 :SET FOR REWIND 
> 3 O3pA 1157 QRB 1108 : 
035¢ 1138 
035¢ 1159; 
gi 1169 ; LOGICAL WRITE EOF OR SENSE MODE FUNCTION = CONVERT TO PHYSICAL FUNCTION 
5¢ 1162 ° 
51 12 A2 § 5 1188 908 SUBW #10$_SENSEMODE-10$_READPBLK-9,R1 ;CONVERT TO PHYSICALeeee 
O— 11 SF 1164 BPH 110$ : 
1 Ne 
8 ot He > DENSE FUNCTION CODE - CHECK FOR READ, WRITE, OR WRITECHECK FUNCTION 
61 1169 © 
51 OA 01 8 61 1190 100$: CMPL #108 WRITECHECK RI DATA TRANSFER FUNCTION? 
09 =#«1A 4 1171 BGTRU 1108 : GTRY NO 
009A (5) = (06 Ft $6 1172 @1OSV_REVERSE ,UCSSwW_FUNC(R5),1108 ; IF CLEAR,NOT REVERSE 
51 03 a0 oC 1173 ADDW @CDHC_WKR-CDHC_WCK,R1 ©; CONVERT TO REVERSE FUNCTION 


<<— 


Ss 


~ 1/TS04 MAGTAP YST A & Piel? 5 AX/VMS Macro v04-00 Page 25 
04-00 START 170 beERaTion rece sans 5 na g-us 1982 90 DRIVER. BUGSRCJTSDRIVER.MAR; 1 (2) 
6F 1175; 
6F 1176 : FINISH PREPROCESSING 
oF 1178 ‘ 
: FEX(RS) FUNCTION DISPATCH INDEX 
0092 «5 51s‘) . 1179 110$: MOVB R1,UCBSB_FE 5) ail” AVE F NCTION DISPATC 
gre 
0374 11 § ; CENTRAL FUNCTION DISPATCH 
Sat ti 
74 1186 FDISPATCH 
$L_IRPCRS) R3 -RETRIEVE ADDR. OF 1/0 PACKET 
0D 33 age 0 eO a3re i BBS PIRPSO_PHYS1O. TAPSU STS(R3),10$ :1F SET, PHYSICAL 1/0 FUNCTION 
08 64 AS) «0B SCE O37 1189 BBS suCBSV VALID. UCBSU_ SiSCR5) 108. ip SET. VOLUR LUME E SOFTWARE VALID 
- ata FE i §388 1194 ~~ FCNERT *" g@*NO CHANGE ON UCBSV_VALID te HERE #e 
es 038A 1198 
A 119 
tN 1194 ; UNIT IS SOFTWARE VALID OR FUNCTION IS PHYSICAL 1/0 
038A 1195 : 
S3BA 119% 108: 
54 2685 00 038A 1198  MOVL  UCBSL_CRB(RS).R ;GET CSR ADDRESS INTO R4... 
54 2 B4 «ODO sCO3BE «1199 MOVE sc tte IDBCRGS RG bisparcn av 
wal aaah ary $399 | 90 Ate’ Ok R [DISPATCH TO COMMAND HANDLING ROUTINE 
0397 120 NO ty - ‘NO OPERATION 
0397 1508 UNLOAD [REWIND & UNLOAD 
0397 1204 SPCFILFOR, - Fad FORWARD 
ted 150 DaveLh oe [DRIVE CLEAR 
0397 1509 SPCFILREV. : SPACE FILE REVERSE 
$397 1309 SPCRECREV,= ;SPACE RECORD REVERSE 
0397 1210 PACKACK,- [PACK ACKNOWLEDGE 
0397 1211 SPCRECFOR,- : SPACE RECORD FORWARD 
0397 121 WRITECHECK,- SIMULATED ANRITECHECK 
0397 1543 ITEDATA,- TWRITE DAT WARD 
0397 1214 ADDATA, - TREAD DATA’ FORUAR 
0397 1215 WRITECHECKR,- “WRITE CHECK REVERSE 
0397 121 WRITEDATA,- [WRITE DATACNO REVERSE) 
tea 1 13 READDATAR.~ TREAD DATA REVERSE 
97 121 REREADN, - SREREAD DATA NEXT 
§397 1 8 REREADP,- "REREAD DATA PREVIOUS 
0397 1220 WRITERET,- [WRITE DATA RETRY 
0397 1 $1 READPRESET,- [SIMULATED READ PRESET 
0397 1 CHAR, - TSIMULATED SET CHARACTERISTIC 
97 1 § $1S,- GET STATUS IMMEDIATE (SENS CHAR.) 
) 8 97 1226 TTMK.~ [WRITE TAPE MARK 
97 1225 WRTTMKR,- [WRITE TAPE MARK RETKY 
97 1 CLEAN,= CLEAN 
97 1 $ MSGREL,- MESSAGE BUFFER RF LEASE 
97 1 WRITESUBS,- [WRITE SUBSYSTE™ MEMEORY 
97 1 3 WRITECHAR.- ‘WRITE CHARACTERISTICS 
> 
0337 ° y®**NOTE INDEX OUT OF BOUND*ee 
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04 MAGTAPE SUBSYSTEM DR maths 17:35:59 VAX/VMS Macro v04-00 Page < 
FUNCTIONS ~SEP=1984 00:18:15 CORIVER.BUGSRCITSDRIVER.MAR; 1 (2) 


>— 


p ; .SBTTL NOP AND SIMULATED FUNCTIONS 
DS 1235 ; 
p | g: ; SET CHARACTERISTIC FUNCTION 
p31 , 
0303 1 § SETCHAR: SET HARACTERISTIC 
AA 6 D3 1240 BICW #UCBSH MS SuAP. UCBSW_DEVSTS(R5) ;CLEAR SWA P B1T 1ST 
EF D7? 1241 EXTZV #MT$V -f9 anal GET FORMAT FIELD 
0309 1 4g #MTS$S-FORM : 
O3DA 124 UCBSW tonal R1 
81 0300 1244 CMPW itt “NORMAL15,R1 t1$ IT IN DUSTRIAL COMPATIBLE? 
12 O3E0 1245 BNEQ [BR IF NO 
As O3t¢ 1 46 BISW — MUCBSM_MS_SWAP,UCB$W_DEVSTS(R5) SET SWAP BIT FOR 
O3E6 124 ; SUBSEQUENT IO FUNCTIONS 
0 E6 1248 5S: 
BE 188s 
O36 31 3 NO OPERATION AND SIMULATED NON-EXISTENT TS11/TS04 HARDWARE COMMAND 
0366 1 3§ 
O3E6 1254 PACKACK: ;PACK ACKNOWLEDGE 
A8 beee 1255 BISW #UCBSM_VALID,UCBS$W_STS(R5) ; PACKACK implies set volume valid. 
O3EC 1256 NOP: :NO OPERATION 
O3EC 1257 WRITECHECK: [SIMULATED WRITECHECK 
O3EC 1258 WRITECHECKR: : SIMULATED WRITECHECK REVERSE 
O3EC i 9 READPRESET: ‘READ IN PRESET 
O3EC 1261 EXHC ~=-:'108 sEXECUTE HARDWARE COMMAND, IF ANY 
O3F1 1 62 10$: ; 
31 O3F1 126 BRW FCNEXT :GOTO FUNCTION EXIT 
O3F4 1264 RETRIABLE ERROR OCCURRED 
O3F4 1265 ZNO RETRIABLE ERROR. NOP ALWAYS SUCCESSFUL 
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v04-001 READ HARDWARE FUNCTION -SEP=1984 00:18:15 CORIVER.BUGSRCJTSDRIVER.MAR;: 1 (2) 
FA is .SBTTL READ HARDWARE FUNCTIONS 
Fe 1 
4 50 3 READ HARDWARE FUNCTIONS 
O3F4 1 fe : 
0 F4 107 
F4 1274 READDATA: sREAD DATA FORWARD 
O3F4 1275 EXHC ~—-:108 SEXECUTE HARDWARE COMMAND 
00B0 ¢5 06 O39 1276 INCL UCBS$L RECORD (RS) S INCREMENT RECORD COUNT 
:MMD0331 00SF 31 O3FD 1 BRW EXIT_READ_FCNEXT *GOTO SUCCESSFUL RETURN 
“1 9400 8 a 710$ HANDLES RETRIABLE ERRORS 
50 pd 0400 1 80 PUSHL RO ;SAVE RO HAS TCC 
00000000'GF 16 0408 1281 JSB G*ERLSDEVICERR [LOG BEFORE RETRY 
50 B8EDO 0408 1 Be POPL RO SRESTORE 
0408 1283 20S: 
50 04 01 0408 1284 CMPL = #TCC_REM,RO :DIv TAPE MOVED 
15 13 O40E 1285 BEQL 22$ [YES BRANCH 
0080 cS) «97: «0410-1286 DECB Mig ERTCNT(RS) yANY RETRIES REMAINING? 
24 19 0414 1¢87 BLSS 0$ ZNO, GO AS FATAL 
0416 1288 EXHC ;D0 READ AGAIN 
00B0 C5 D6 O41E 1289 INCL ie Hi RECORD(RS) + INCREMENT RECORD COUNNT 
7MMD0331 0087 31 0422 41 BRW EXIT_READ_RFCNEXT SSUCEED, RETU 
:MMD0331 0425 r 22$: 
[MMD0331 0080 cS) (97: «0425~—Cié«‘ ; DECB ye $B_ERTCNT(RS) ZANY RETRIES REMAINING? 
>MMD0331 OF 19 0429 2% BLSS 0$ :NO, GO AS FATAL ER 
:MMD0331 O48 °5 EXHC 228 ;D0 REREAD PREVIOUS 
[MMD0331 00B0 C5 06 0433) INCL cease. RECORD(RS) : INCREMENT RECORD COUNT 
[MMD0331 0072 31 0437 °? BRW EXIT_READ_RFCNEXT :SUCCEED, RETURN 
=7 043A 1297 30S: 
QOO0078F'EF 17 043A 1298 JMP FATALERO 
0440 1299 
0440 1300 ; 
0440 1301 : REREAD PREVIOUS (SPACE REV,READ FWD) 
0440 1306 3 
0440 130 
0440 1304 REREADP: :REREAD DATA PREVIOUS 
0440 1305 EXHC =-:108 : 
7MMD0331 0057 31 0445 | «.1 BRW EXIT_READ_FCNEXT TSUCCESS RETURN 
= 0448 1307 10S: 
0344 31 0448 1308 BRw FATALERO ; TREATED AS FATAL AS NOW 
0448 1309 
0448 1310; a 
0448 1311 : READ PREVIOUS 
0448 1 1 : 
0448 131 
0448 1314 READDATAR: :READ DATA REVERSE 
0448 1315 EXHC —-:108 
0080 (5 D7 «(0450 1316 DECL — UCBSL_RECORD(RS) ;DECREMENT RECORD COUNT 
4654 1317 *NOTE* THK PROBLEM? 
;MMDO331 0048 31 494 é i cai BRW EXIT_READ_FCNEXT D0 SUCESSFUL RETURN 
50 pd 0457 1320 PUSHL RO SA VE RO WHICH HAS TCC CODE 
00000000" oF 16 04659 1321 JSB G*ERLSDEVICERR iL 0G BEFORE RETR 
0 BEDO 045F 1 é POPL RO RESTORE 
462 1323 208: 
50 06 D1 0662 1326 CMPL = #@TCC_REM,RO s TAPE MOVED? 
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1 DRIVER = VAX/VMS TS11/TSO4 MAGTAPE SUBSYSTEM DR §-JAN-1985 17:35:59 YAX/ vis Macro v04-00 Page 28 
v04-001 READ HARDWARE FUNCTIONS 934 00:18:15 CORIVER.BUGSRCIJTSDRIVER.MAR; 1 (2) 
15 1 465 1325 BEQL 22% sYES 
0080 § 97 0467 1 $ DECB BSB _ ERTCNT(RS) TANY RETRIES LEFT? 
4 19 04668 1 BLSS ie 7NO, AS of ATAL RRO 
4 1 g EXHC $,H [D0 READ DATA PREVIOUS AGAIN 
00B0 ¢5 p7 4 5 1 DECL ccest RECORD(RS) :DECREMENT RECORD COUNT 
immo 88 0030 «31 7 1 - BRW EXIT_READ_RFCNEXT TSUCCESS RETUR 
:MMD0331 0080 <5. 97 ar “§ tech : BSB_ERTCNT(RS) ANY RETRIES LEFT? 
zmm00331 OF 19 048 4 BLSS oo 7NO, AS FATAL ERROR, 
3MD0331 0482 on EXHC 223 300 REREAD DATA NEXT 
7MMD0331 0080 C5 p7 048A “8 DECL vcesl RECORD (RS) :DECREMENT RECORD COUNT 
MMDO351 001B S31 04 ‘ ey BRW EXIT_READ_RFCNEXT ZSUCCESS RETUR 
O2FB 31 0491 137 "  BRW FATALERO 
0494 1339 
gst 
0494 1 4@ : REREAD DATA NEXT(SPACE FWD, READ REV) 
gest iE 
0494 1345 REREADN: = ;REREAD DATA NEXT 
smmi0331 0003 31 0499 4 ‘ad BRW EXIT_READ_FCNEXT :SUCCESS RETURN 
:mMDO334 O2FO0 8031 peat $ d BRw FATALERO zAS FATAL ERROR AS NOW 
[™MD0331 O49F § °5 EXIT_READ_FCNEXT: 
7MMD0331 OOFE cS OF é! 049% .6 BBC #MS_XSRO_V_TMK,UCBSW_MS_XSRO(R5),10$ ; If not TM then branch 
;MMD0331 00c4 (5) «B84 04A5 oF CLRW hep MS_XC(R5) ; Else clear the count returned 
eae t O2FE 31 er 8 10$: BRW FCNEXT ; Branch to complete the 1/0 
:™MD0331 O4AC 10 EXIT_READ_RFCNEXT: 
cMMDO331 OOFE CS OF E! Q4ac 11 BBC #MS_XSRO_V_TMK ,UCBSW_MS_XSRO(R5),10$ ; If not TM then branch 
;MMD0331 N0c4 C5 =B4 0482 \¢ CLRW UCBSW_MS_XC(RS) ; Else clear the count returned 
mn 331 O2F1 31 13 10$: BRW RF CNERT ; Branch to complete the 1/0 
51 
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TSORIVER = VAX/VMS_1$11/TSO4 MAGTAPE SUBSYSTEM DR 8-JAN-1985 17:35:59 VAX/VMS Macro v04-00 e 29 
v04-007 WRITE FUNCTIONS g- EP- =}38? 4 00:18:15 LORIVER. BUGSRCJTSORIVER.MAR; 1 29 23) 
489 1353 .SBTTL WRITE FUNCTIONS 
4B9 135% 
459 1355 ; 
489 1 $ : 3 WRITE DATA 
489 1 : 
489 1 8 
489 1359 WRITEDATA: WRITE DATA FORWARD 
46 AS 08 AA 0489 1360 BICW #<MT$M_HWL>@-16,UCBSL _DEVDEPEND+2(R5) - CLEAR 
48D 1361 ; HARDWARE oR tee LOCK BIT 
48D 1 6¢ EXHC ~=-:108 
00B0 C5 06 4C2 136 INCL UCBSL_RECORD(RS) INCREMENT RECORD COUNT 
02€1 1 4cg 1 64 BRW FCNEXT STAKE FUNCTION EXIT 
4C9 1365 108: 
50 DD 0409 1 66 PUSHL RO ZSAVE RO 
00000000'GF 16 048 136 JSB G*ERLSDEVICERR [LOG BEFORE RETRY 
50 BEDO 0401 1368 POPL RO s RESTORE 
0404 (1 $ 208: 
50 04 D1 0404 1370 CMPL = #TCC_REM, RO ;TAPE MOVED? 
15 13 04607 1371 BEQL 22% YES 
0080 cS) =-«97,-—«04D9—- 137 DECB CBS$B_ERTCNT(RS) :ANY RETRIES LEFT? 
24 19 O4DD 137 BLSS 0$ F of ATAL ERRO 
O4DF 1374 EXHC  20$,HC_WRD weg RITE AGA tN 
00E0 C5 06 0467 1375 INCL UCB$L_RECORD(RS) INCREMENT RECORD COUNT 
028C 1 geen 13 228 BRw RF CNERT STAKE SUCCESS RETURN 
0080 (5-97 OEE 1378 DECB yCBSB_ERTCNT(R5) sANY RETRICS LEFT? 
OF 19 O4F 1379 BLSS 0$ :NO, FATAL 
4F4 1380 EXHC  22$,HC_WOR ;D0 WRITE DATA RETRY 
00B0 C5 6 O4FC 131 INCL UCB$L_RECORD(RS) S INCREMENT RECORD COUNT 
02A7 1 0500 1 ; BRW RF CNERT :SUCCESS RETURN 
0503 1 30$: 
0289 31 0503 1384 BRW FATALERO 
0506 1385 
0506 1 $: 
9506 pi WRITE DATA RETRY(SPACE REV,ERASE WRITE DATA) 
0506 1389 
0506 1390 WRITERET: sWRITE DATA RETRY 
0506 1391 EXHC 108 : 
029c 31 0908 4 em BRW FCNEXT ;TAKE SUCCESS RETURN 
027E «31 230 1394 BRW FATALERO TAS FATAL 
211 1396 
21} 1397 ; WRITE SUBSYSTEM MEMORY 
a1 1390 ° 
511 1400 wRITESUBS: ;WRITE SUBSYSTEM MEMORY 
511 1401 EXHC =-:108 : 
0291 «31 316 14 : BRW FCNEXT :SUCCESS RETURN 
519 1403 108: 
519 14 
0273 «31 0519 1405 BRW FATALERO 
SiC 14 : 
51 1407 ; 
Sic 14 8: + WRITE CHARACTERISTICS 
SiC 14 USED TO TELL SUBSYSTEM MSG BUFFER ADDR. & SET CHARACTERISTIC WORD 


at 


TSDRIVER = VAX/VMS 1$11/TS04 MAGTAPE suasyeren DR 8-JAN-1985 1 :5 AX/VMS Macro v04-00 Pa 30 
Vae-00t WRITE FUNCTIONS 23 EP-1984 00: 5:38; 3 CORIVER. BUGSRCIJTSDRIVER.MAR; 1 ou (2) 
aif 1319 s 
1¢ (141 
51¢ a WRITECHAR: WRITE CHARACTERISTICS 
bait 141 
SiC 1414 EXHC 108 ; 
0286 31 0521 1415 BRW FCNEXT sSUCCESS RETURN 
0524 1016 10$: 
0268 31 0524 141 BRW FATALERO : 
0527 1418 
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04-00 
4 00: DRIVER.BUGSRCIJTSDRIVER.MAR; 


COMMAN NOT US 
EC 


DIS ED. 
Y A SERIES SKIPRECORD COMMANDS. 


;SPACE FILE FORWARD 
UCBSW_MS_SPACNT(RS) ,UCBSW_BOFF(R5) ;SAVE NO. OF 


UCBSW_MS_SPACNT(R5S) ,UCBSW_BCNT(RS) ; TAPE MARKS TO SKIP 
UCBSL_RECORD(RS) ,UCBSL_MS_PMPR(R5) ;SAVE TAPE POSITION 
#UCBSM_MS_SWE,UCBSW_DEVSTS(R5) ;USE OLD TAPE POSITION IF POWERFAIL 
;**SOFTWARE EMULATED FUNCTION®® 
#UCBSM_MS_FEF ,UCBSW_DEVSTS(R5) CLEAR FLAG FOR 1ST EOF SEEN 
#*X7FFFUCBSW_MS_SPACNT(RS) ;SKIP 32,768 RECORDS INSTEAD 


10$,HC_STF :D0 IT 
ucB$w_AS_XC(RS5).R1 7GET NO. OF RECORDS PASSED 
R1 ycast RECORD(RS) “ADD 
T$V_EOF ,UCBSL_DEVDEPEND(R5),0$ ;BR IF DIDN'T SEE TAPE MARK 
UCBSW~BCNT (RS) SDECREMENT TAPE MARK PASSED 
$ ‘BR IF NOT MOUNTED 


EVS$0_MNT,- 
UCBSL_BEVCHAR(RS) ,2$ ; 

#DEVST_FOR,- 3BR IF MOUNTED NOT FOREIGN 
UCBSL_BEVCHAR(RS) ,5$ : 


#UCBSV MS FEF UCBSW_DEVSTS(RS) .4$. :BR IF 1ST TMK 
#1 ,UCBSW_MS_XxC(R5) peel RECORD=TAPE MARK??%* 


3B 
#1 UCBSWS_SPACNT(RS) SKIP 1 TMK REVERSE 
uce$w_BCNT(RS) :BACKUP 1 TMK PASSED 
UCBS$L ~RECORD(R5) [UPDATE TAPE POSITION 
#SS$ ENDOF VOLUME RO YES, DOUBLE, TMKS=ENDOF VOL UME 
UCBSQ_BCNT(R5S) ,UCBSW_BOFF (R55 ,UCBSW_MS_XC(R5) ;GET NO. OF 


; TAPE MARKS PASSED 
EXIT 


FCNEXT ;60 
#UCBSM_MS_FEF ,UCBSW_DEVSTS(R5S) ;SET 1ST EOF 
UCB$W_BCNT(RS) PASSED ALL TAPE MARKS 

NO, GO BACK 
UCBSW_BOFF (RS) ,UCBSW_MS_XC(RS) ;YES,COPY TMKS PASSED 
FCNEXT 360 EXIT 
FATALERO ;TAKE FAILURE RETURN 
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MOVW 
MOVL 
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4 MAGTAPE SUBSYSTEM DR 8-JAN-1985 17:35:59 VAX/VMS M 4 
ONS $ 48:48 UssACHTSORI ner 


“SEP=1984 00:1 DRIVER.BUGSRCJTSDRIVER.MAR; 1 


; SPACEFILE REVERSE 


; SPACE F Le REVERSE 
UCBSW_MS_SPACNT(RS) ,UCBSW_BOFF(R5) ;SAVE NO. OF 


UCBSW_MS_SPACNT(R5) ,UCBSW_BCNT(R5S) ; TAPE MARKS TO SKIP 

UCBSL_RECORD(RS) ,UCBSL_MS_PMPR(RS) ;SAVE TAPE POSITION 

WUCBSM_MS_SWE,UCBSW_DEVSTS(RS) ;USE OLD TAPE POSITION IF POWERFAIL 
s**SOFTWARE EMULATED FUNCTION®®* 

@°X7FFF ,UCBSW_MS_SPACNT(R5) ;SKIP 32,768 RECORDS INSTEAD 


10$,HC_STR 700 IT 
antsy _80T : if _" ran into BOT, treat as if 
UCBSL ~DEVBEPEND (RS), S$: ere don 
UCBSU"M mS XCCRS) « R1 IGET “NO. OF RECORDS PASSED 
R1 Suthy EDF's REC (R5) RAC 
Fnucase SEVDEPEND ER ),1$ :BR IF DIDN® I SEE TAPE MARK 
ocBsu" “BCNT (RS) ;DECREMENT TAPE MARK PASSED 
UCBSW~ ~BENTIRS) SPASSED ALL TAPE MARKS? 
1$ :NO, BR BACK 
UCBSW_BCNT(R5),- ; Calculate number of tape 
UCBS$W_BOFF (RS) ,- 3; marks passed. 
UCBSW-MS_ XC (RSS 
PENEXT :G0 EXIT 
FATALERO 


; SPACE RECORD FORWARD 


SPACE RECGRD FORWARD 


antsy 50 -UCBst aDEVDEPEND«RS) 8$ :BR IF NO TMK 
#1 UCB W_MS_Xx 1 REC ORD=TMK?* 


:BR IF NOT MOUNTED 


SOEVS 
ucBs VBEVCHAR(RS) .28 
r) “BR IF MOUNTED NOT FOREIGN 


V 7 
UCBSL_BEVCHAR(RS).8$ —s: 
CBSL_RECORD(RS) :WAS AT BOT? 
‘BR IF YES 
#} ,uCBSY MS_SPACNT(RS) SKIP 1 RECORD REVERSE 
rt ica MS_SPACNT(RS) SKIP 1 RECORD REVERSE 
‘ UcBsi MS_SPACNT(RS) ; SKIP 1 RECORD FORWARD 
ent$v_E0F ,UCBSL DEYDEPEND RS) 6$ :BR IF NO TMK 
ress _ENDOF VOLUME ,R WAS AT ENDOF VOLUME 
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H § 
TSDRIVER = VAX/VMS TS11/TSO4 MAGTAPE SUBSYSTEM DR 8-JAN-1985 17:35:59 VAX/VMS Macro v04-00 Pp 3 
youeout POSITIONING FUNCTIONS remett i boasts YORIVER.BUGSRC TSDRIVER.MAR: 1° >" 33 
00c4 (SBS 8 1 CLRW 6&UCBSW_MS_XC(RS) ZNO RESULTANT MOVEMENT 
0148 ef : } a BRw FCNEXT ~ RETURN 
0084 ¢S «601s BO F 1505 MOVW  #1,UCBSW_MS_SPACNT(RS) ;SKIP 1 RECORD FORWARD 
64 : - EXHC =: 108 ,HC_SRF : 
51 o00ce¢S 3 ¢ 1 § MOVZWL ucesu MS_XC(RS),R1 7GET NO. OF RECORDS PASSED 
0080 ¢ 1 ¢ 671 1 ADDL  R1,UCBSL-RECORD(RS) SUPDATE 
0131 1 676 1530 BRW FCNEXT ; 
679 1531 108: 
011331 79 1 ‘ BRw FATALERO 
ze 1 
7C «1534 ; 
67C 1535 ; SPACE RECORD REVERSE 
sre 1 
67C 1538 SPCRECREV: ;SPACE RECORD REVERSE 
67C 1539 EXHC =—-:108 ; 
EO 0681 1540 BBS #MT$V_BOT,- ; If we ran into BOT, treat as if 
OA 44 AS 3 1541 UCBSL-DEVDEPEND(RS:,5$ : we were done. 
51 0006 ¢5 3¢ 6 1348 MOVZWL UCBSW"MS_XC(RS5),R1 [GET NO. OF RECORDS PASSED 
00p0 cS 551s C2 6 154 SUBL R1,UCBSL_RECORD (RS) ; UPDATE 
690 1544 S$: 
0117 31 0690 1545 BRw FCNEXT ; 
0693 1546 10S: 
OOF9 «931 «0693 «1547 BRW FATALERO 
0696 1548 
0696 1549 ; 
0696 1550 ; REWIND 
0696 1551: 
0696 133¢ 
0696 1553 REWIND: ;REWIND 
0696 1554 EXHC =—-:108 
4645 01 ABS 0698 1555 B'SW #<MTSM_BOT@-16>,UCBSL_DEVDEPEND+2(R5) ;MARK BOT 
46 A510 069F 1556 BICW #<MTSM~LOST@-16>,UCBSC_DEVDEPEND+2(R5) ;CLEAR POSITION-LOST 
0080 CS) «D4 «(06A3. «1557 CLRL - UCBSL_RECORD(RS) 
0100 31 O6a7 1558 BRw FCNEXT 
06AA 1559 108: 
O0E2 31 O6AA 1360 BRw FATALERO 
O6AD 1561 


<- 


5 
vepeyee FORMAT ch TS11/TS04 MAGTAPE suasy Sten DR gn fA 138? 1:38:38 ahd Macro v04-00 Page 34 


$ -1984 00: DRIVER. BUGSRCITSDRIVER.MAR: 1 (2) 
i .SBTTL FORMAT COMMANDS 
1565 ; 
: WRITE TAPE MARK 
; 1 : 
SAD 1 $3 WRT TMK : WRITE TAPE MARK 
4645 08 AA O6AD 1 BICW = #CMTSM_HWL>@-16,UCBSL_DEVDEPEND+2( RS): CLEAR 
bE } 4 suet een ; WRITE LOCK aif FIRST 
0080 ¢5 B6 6B6 157 INCL  UCBSL_RECORD(RS) S INCREMENT RECORD COUNT 
O0ED SBA 2 ros, ORM FCNEXT [GOTO EXIT 
50 od 0680 1 2 " —- BYSHL «RO ;SAVE RO 
00000000 ' GF 16 BF 157 J$8 G*ERLSDEVICERR [LOG BEFORE RETRY 
0 BED if 28 iy POPL = RO RESTORE 
50 04 pt oc 0 , cnet STCC_REM.RO TAPE MOVED? 
oogo cs 97 beth ; DECB $A_ERTCNT(RS) TANY RETRIES LEFT? 
8 19 0601 1 BLSS Moe NO, FATAL 
603 «1584 EXHC 208 ,HC_WTM 700 IT AGAIN 
0080 ¢5 06 DB 1585 INCL  UCBSL_RECORD(RS) {INCREMENT RECORD COUNT 
00ca 31 SDF 1586 aoa: BRU RFCNERT RETURN 
0080 cs 7 tf DECB  pegoeeny ZANY Y ranae® LEFT? 
8 1 EXHC $,HC_WTR :DO'WRITE TAPE MARK RETRY 
0080 CS 06 SFO 1591 INCL UCB$L_RECORD(RS) S INCREMENT RECORD COUNT 
0083 31 oF 2% BRW RFCNERT ; 
0095 31 oF? 1394 30$: BRW FATALERO BRANCH FATAL ERROR 
FA 1 % > WRITE TAPE MARK RETRY(SPACE REV,ERASE,WRITE TAPE MARK) 
SrA 1898 ° 
OFA 1899 WRTITMKR: [WRITE TAPE MARK RETRY 
OFA 16 EXHC —-:108 : 
00A8 31 0 FE 16 1 va BRW FCNEXT G0 EXIT 
008A 31 ? ; 16 § BRW FATALERO :FATAL AS NOW 
? 16 5 : ERASE 
7 3 8 . 
705 16 8 ERASE: ERASE 
705 160 EXHC ‘108 : 
0090 31 70 1619 ep BRW FCNEXT 
007F 31 0700 1618 “  BRW FATALERO 
710 161 


<~- 
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TRDR YER = VAX/VMS TS11/TSC4 MAGTAPE SUBSYSTEM DR Bn an 138? 47333332 AX/VMS Macro V04-00 page 35 
v04- CONTROL COMMANDS ~SEP-1984 00:18:15 CORIVER.BUGSRCITSDRIVER.MAR; 1 (2) 
71 1913 ~SBTTL CONTROL COMMANDS 
710 4 1§ 
710 1617 ; 
71 1918 ; CONTROL COMMANDS 
710 1619 ; 
710 1620 
710 1621 MSGREL: s;MESSAGE BUFFER RELEASE 
710 16 § EXHC 10$ : 
0092 31 QO715 16 BRW FCNEXT 
718 1624 108: 
ne 1625 
0074 31 0718 16 § BRW FATALERO 
71B 16 
Q71B 1628 UNLOAD : 
718 1629 EXHC 10$ ; 
0087 3: 07 1630 BRW FCNEXT 
7? 1631 10$: 
0069 31 07 16 ¢ BRw FATALERO 
0726 16 
0726 1634 CLEAN: ; CLEAN 
0726 1635 EXHC 10$ : 
0o7c 8631 0728 16 § BRW FCNEXT 
QO72E 1637 108: 
OOSE 31 O72E 1638 BRW FATALERO 
0731 1639 


ao 
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5 
VSDRIVER - VAX/viKs T$11/1804 MAGTAPE SUBSYSTEM DR B-JAN-1985 17 2 yAX/vms Macro v04-00 Page 36 
v046-001 INITIALIZE AND GET STATUS DRIVER.BUGSRCJTSDRIVER.MAR; 1 (2) 
731 1641 .SBTTL INITIALIZE AND GET STATUS 
aay 1608 
731 1644 ; DRIVE INITIALIZE 
Pa Ree 
731 1603 DRVCLR: :DRIVE INITIALIZE 
731 1648 EXHC —-:'108 
0071 31 , $ 1669 aan BRW FCNEXT 
0053 31 0739 «1651 "  BRW FATALERO 
Opa 1688 
073C 1654 : GET STATUS (END MESSAGE ONLY? 
grit tea 
073¢ 16a? GETSTS: : 
07 C 1658 EXHC —-:108 
46 AS OF AA 741 1659 BICW mrsneeore : CLEAR BITS IN UCBSL_DEVDEPEND+2 
0745 1661 MTSM_EOT!- TAPE 
-w 0745 1668 “se MTSM- Hi >a-16 UCBSL pevobbtno’2 : 
OC OOFE C5 0747 1664 UCBSW_MS-XSRO(RS),1 ' BR IF NO 
0080 (5 04 0748 1665 CLRL UCBSL RECORD(RS) :CLEAR RECORD COUNT 
464645 01 AB O74F 1666 BISW MTS$A_BOT@-16>,UCBSL DEVDEPENDeD (RS) sSET BOT 
46 45 10 AA 0733 1667 . BICW acnisn “LOST@-16>,UCB$C_DEVDEPEND+2(R5) ;CLEAR LOST BIT 
04 OOFE of E44 1690 _ erase nen “YEROCR .2$ woltie® 9 NO 
AS 02) AB 075 1671 vs BISW = #<MTSA Lalita DEVDEPEND+2(R5) sSET EOF 
ou ogre 23 EY BARE HBR wae amscxsno.vewa.= 52 suRiTE-Lockeo? 
4645 08 AB 0767 1675 =. BISW = #<ATSA mAOLario>> tat cohnweonaia # f :SET WRITE-LOCKED 
09 £1 0768 1679 . BBC #MS_XSRO_V_EOT SEND OF TAPE 
OD OOFE C¢ 0760 1678 UCBSW_MS“XSRO(RS) .4$ R 
46 45 10 AA 0771 1679 BICw #<AT$A "tOsta-i6> cas. DEVDEPEND?2(R 5 “CLEAR POS. Lost 
466 A506 AB 0775 1680 alSw OcHISR- EOT@-16>,UCBSL_DEVDEPEND+2(R5) ;SET END OF TAPE 
50 0878 BF 3C¢ Orre 16 “ MOVZWL #SS$_ERDOF TAPE, R sPUT IN RETURN STATUS 
EO O77E 16 : BBS #MS_XSRO_V sCHECK IF ONLINE? 
05 OOFE o¢ ? 9 16 4 UCBSW_MS “YSROTRS), 6$  ;BR IF YES 
50 O1A6 BF 3 784 1686 MOVZWL #SS$_MEDOFL,RO ;RETURN MEDIUM-OF F LINE 
OO1E 31 , 9 16 8 ae BRw FCNEXT 
0000 31 4 ; 1eoy ; BRw FATALERO ; TREAT AS FATAL 
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1/TS04 MAGTAPE suasyéten DR §-JAN-1985 17:35:59 VAX/VMS Macro 04-00 Page 37 
OCESSING 1984 00:18:15 CORIVER.BUGSRCITSORIVER.MAR; 1 (2) | 
1695 .SBTTL COMPLETION PROCESSING | 
1695 : FATALERR | ° eRINISHING UP THE I/0 REQUEST PROCESSING WHEN THE OPERATION 
1696 ; ENDS WITH FATAL OR HARD ERROR. 
1638 ; RO HAS THE’ PINAL STATUS CODE ALREADY. 
1699 ° 
1900 FATALERO: ZNO ERROR CODE IN fo 
1701 MOVZWL #SS$_DRVERR,RO ‘GIVE IT ONE FOR 
17 é FATALERR: 
7 ; CL UCBSW_MS_XC(R5) ;MAKE SURE NOTHING XFERRED/SKIPPED 
1308 CMPW = #@SS$_MEDOFL.RO : See if error is MEDIA OFF LINE. 
1706 BEQL FCNERT : If so, then branch around logging error. 
1707 PUSHL RO ‘SAVE FINAL STATUS 
1708 JSB G*ERLSDEVICERR ;L0G DEVICE ERROR 
1709 POPL RO 
1710 RFCNEXT [SUCCESS RETURN AFTER RETRY 
1712 BICW  #<UCBSM_MS_RPI!UCBSM_MS_SWE>,UCBSW_DEVSTS(R5) ; ASSURE FLAGS CLEARED 
1713 PUSHL RO i SAVE FINAL STATUS 
1714 JSB G*10C$DIAGBUF ILL FILL DIAGNOSTIC BUFFER IF PRESENT 
1715 MOVW UCBSW_MS_XC(R5),2(SP) ‘SET vies XFERRED OR RECORDS/FILES SKIPED 
1716 BLBS  (SP),70$ IF LBs SUCCESSFUL COMPLETION 
1717 MOVL UCBSL_IRP(RS), GET ADDRESS OF CURRENT 1/0 PACKET 
1718 BBC #IRPSO VIRTUAL, IpPsu. STSiR4), 70$ NOT VIRTUAL FUNCTION 
1719 MOVE IRPSE _QIND(R4) appriss of "Noou BLOCK 
1720 CLRW wcesu- NMAP(R4) tet eran NUMBER OF MAPPING POINTERS 
1721 MOVL UCBSL~ “VCB B(RS) [GET ADDRESS OF VCB LISTHEAD 
1728 MOVAB UCBSL-IOQFL(R agp. »R2 [GET ADDRESS OF 1/0 
17 MOVL Re iSET ADDRESS OF PREVIOUS ENTRY 
172% 60$:  MOVL (R$)_R3 [GET ADDRESS OF NEXT ENTRY 
1725 CMPL = R3,_ RB END OF LIST? 
1726 BEQL «6s 708 EQ SY Yes 
1727 BBC #IRPSV_VIRTUAL, IRPSW_ stsinsy® 60$ ;IF CLR,NOT VIRTUAL FUNCTION 
1728 MOVL 4(R3),R3 :RETRIEVE ADDRESS OF PREVIOUS ENTRY 
1729 REMQUE a@(R3).R1 sREMOVE ENTRY FROM DRIVER QUEUE 
1730 INSQUE (R1) Sr tRS) ; INSERT ENTRY IN BLOCKED 1/0 LIST 
1731 BRB 608 
17 é 70$:  POPL RO TRETRIEVE FINAL STATUS 
7 ; MOVL UCBSL -DEVDEPEND(R5), ,R1 SET MAGTAPE STATUS AND CHARACTERISTIC 
173 BSBW TRACE_STATOS . Trace final I/O status. 
1736 -ENDC 
1737 REQCOM [COMPLETE REQUEST 


<- 
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v04-001 HARDWARE COMMAND EXECUTOR 4 00: DRIVER.BUGSRCJTSDRIVER.MAR; 1 (2) 


0 4 1740 .$ -SBTTL HARDWARE COMMAND EXECUTOR 
0 4 124 i HCEX = EXECUTES HARDWARE COMMAND 
0804 1744 : THIS ROUT INE 1S CALLED VIA A BSB WITH A WORD IMMEDIATELY FOLLOWING THAT 
08046 1745 ; SPECIFIES THE ADDRESS OF AN (RETRIABLE) ERROR ROUTINE ALL DATA IS ASSUMED 10 HAVE 
0804 1246 : BEEN SET UP IN THE jee. BEFORE THE CALL. THE COMMAND PACK ker 1S APPROPRIEATELY 
08046 1747 : SETUP AND INITIATED BY LOADING THE ADDR. OF D PACKET INTO TH 
0804 1748 > TS11/TS04 DEVICE REGISTER, TSDB. THEN, A WAITFOR INTERRUPT Is EXECUTED 
0804 1749 ; AND WHEN THE INTERRUPT OCCURS, CONTROL IS WRETURNED 10 THE C 
0804 1730 ; THE ROUTINE MAINLY DEALS WITH THE HARDWARE INTERFA 
bB06 1736 > INPUTS: 
6806 1753: RO=HARDWARE COMMAND TABLE DISPATCH INDEX 
0804 1754 : R4=EQUIVALENT CSR ADDR. FOR 1$11/TS04 
0804 1735 : RS=DEVICE UNIT UCB ADDRESS 
0804 1789 : QO(SP) = RETURN ADDRESS OF CALLER 
Bape 1738 : 04(SP) = RETURN ADDRESS OF CALLER'S CALLER 
0804 1760 : IMMEDIATELY FOLLOWING INLINE AT THE CALL SITE IS A WORD WHICH HAS 
0804 1761 : cate BRANCH DESTINATION TO AN ERROR RETRY ROUTINE, IF APPROPRIATE. 
0804 1768 : THE DRIVE STATUS, SUCH AS BOT, EOT, ETC, ARE RECORDED IN UCB. 
0804 1765 : THERE. ARE THREE E EXITS FROM THIS ROUTINE: 
0804 1767: ) FATAL OR HARD ERROR EXIT, AND 
08046 1768 : ) RETRIABLE ERROR RET 
0804 1769 ; WHEN EXITS, RO HAS THE FINAL STATUS CODE IF NORMAL OR FATAL, 
0804 1770 : RO HAS TERMINATION CODE, 4 OR S, IF RETRIABLE. 
0804 44 : THE DRIVE STATUS ts RECORDED INTO UCB WHILE PROCESSING TERMINATION COE 
i 3 

009C C5 BEDO 0804 1775 "  pOPL UCBSL DPC(RS) SSAVE DRIVER PC VALUE 

OOpc (5) —ssi14% 0809 1778 MOVZBL #20,UTBSL_MS Mt saatihaaaglt * : Initialize. timeou t to 20 seconds. 

00c6 CS. B4 «(OBOE «(177 CLRW UC (a68. ms DPN TR5) CLEAR DATA PATH NO. & PURGE ERROR 

00c8 ¢5 «= 7C:«O812 «1778 CLRQ  ——UCBSLMS~DPR(R5) ZERO DATAPATH REG. & FINAL MAP REG. 

00C4 ¢5 0816 1779 CLRW UCBSu MS-XC(R5) S INITIALIZE C 

0093 cS 650 90 O81A 1780 MOVB RO,UCBS$B-CEX(RS) i SAVE CASE | NDEX 
1 0086 CS DO O81F 1781 MOVL ucéee MS-TSPT1(R5),R1 :GET COMMAND PACKET POINTER 
61 FBOF CF4O0 BO 0824 1782 MOVW HCTABCROJ,MS_CPHD(R1) :LOAD COMMAND PACKET HEAD WORD 


<- 
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vC4=001 HARDWARE COMMAND EXECUTO P=1934 00:18:15 CDORIVER.BUGSRCJTSDRIVER.MAR; 1 (3) 
FFEE ef B0 A 1784 MOVW = #°XFFFFMS_MHD(R1) ;MARK MSG HEAD TO ENSURE MSG BUFFER RETURNED 
05 68 AS OC ES 6 1785 BBCC #UCBSV_MS_VCK,UCB$W_D STS(RS) 7$ :BR IF NOT VOLUME CHECK 
61 4000 BF AB 08 3 7 : - BISW  #MS_CPAD_M_CvC,ms_ Pn R1) ;YES, FLAG TO CLEAR VOLUME CHECK 
083A 1788 CASE —RO, <= : DISPATCH TO PROPER COMMAND ROUTINE 
083A 1789 PNOP,- iN 
0 A 1790 PMIS.= NLOAD 
3a 1791 PPOS.- SPACE OF ILE FORWARD 
OB3A 1798 PPOS.- ND 
083A 179 PMIS.- :DRIV VE CLEAR 
OB3A 1794 PPOS.- SPACE FILE REVERSE 
083A 1795 PMIS.- 
083A 1796 PPOS.- {SPACE RECORD REVERSE 
083A 1797 PNOP, = ‘SIMULATED PACK ACKNOWLEDGE 
OB3A 1798 PPOS.- SSPACE RECORD FORWARD 
083A 1799 PNOP. = SSIMULATED WRITECHECK 
083A 1800 PXFR.= ‘WRITE DATA FORWARD 
083A 1801 PXFR.= [READ DATA 
OB3A 1898 PNOP. = i SIMULATED WRITE CHECK REVERSE 
083A 180 PXFR.= ‘WRITE DAT 
O83A 1804 PXFRR,= TREAD DATA REVE Re 
083A 1805 PXFRRD,= SREREAD DATA NEXT 
O83A 1806 PXFRRD.= SREREAD DATA PREVIOUS 
083A 1807 PXFR, = SWRITE DAT 
083A 1808 PNOP. = SSIMULATED READ PRESET 
083A 1809 PNOP. = i SIMULATED SET CHARACTERISTIC 
083A 1810 PMIS.- GET STATUS IMMEDIATE(SENS CHAR.) 
083A 1811 PMIS.= [WRITE TAPE MARK 
083A 1812 PMIS.- [WRITE TAPE MARK RETRY 
083A 1813 PMIS.- :CLEAN 
O83A 1814 PMIS.- [MESSAGE BUFFER RELEASE 
083A .1815 PXFR.= [WRITE SUBSYSTEM MEMORY 
083A 1816 PWCH.- SWRITE CHARACTERISTICS 
O83A 1817 > : 
0876 1818 
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HARDWARE COMMAND EXECUT gous 1982 9 00:18:15 LORIVER. BUGSRCJTSDRIVER.MAR; 1 *s (3) 
76 «1 9: 3*PNOP - ~ ak ae ON HARDWARE FOR MANY SIMULATED FUNCTIONS 
76 «1 3 NOP PACK ACKNOWLEDGE ,WRITECHECK WRITE CHECK REVERSE, 
76 1 j : READ iN PRESET.SET CHARACTERISTICS. 
£6 33 THE ROUTINE SIMPLY RETURNS. 
76 1825 PNOP: 3 
76 «1 § RET: Hy 
3C 7 1 MOVZWL # . epee ne RO sALWAYS SUCCESS 
£9 79 1828 ADDL DPC (RS) TADJUST 10 CORRECT RETURN 
1 0 7 ; JMP soebee spe (RSD [RETURN TO DRIVER 
1831 
H 1 gi PPOS = CONSTRUCT COMMNAD PACKET FOR POSITIONING COMMANDS: 
0 1 ‘ SPACE RECORDS FORWARD, SPACE RECORDS REVERSE, SKIP TAPE MARKS FORWARD, 
Ht 4 ; SPACE TAPE MARKS REVERSE, AND REWIND. 
08 1836 PPOS: : 
91 bas 1837 CMPB #CDHC_RWD,RO ;REWIND COMMAND? 
12 0885 1838 BNEQ 5$ =NO 
0887 1839 DSBINT :YES, DISABLE INTERRUPTS 
—1 088D 1840 BBC #UCBSV_POWES,- 
O88F 1841 UCBs, STS(RSS,1$ : Continue if NO powerfail 
31 pee 166 13 BRw ; Branch around if we had POWERFAIL. 
BO 0895 1844 MOVW UCBSW_MS_TSPT3(R5), (RS) se COMMAND POINTER 
O89A 1845 WFIKPCH MSTMOT,#"D300 TIMEOUT FOR ‘, MIN.°S FOR 2400 FEET TAPE 
O8A8 1846 IOF ORK [MAKE IT FORK FIRST 
31 O8AE 1847 BRW XTC :60 PROCESS TERMINATION CODE 
0881 1848 5$: NOT REWIND OR UNLOAD 
BO bees 1849 MOVW UCBSW_MS_SPACNT(RS) MS _BACT(R1) ;LOAD THE COUNT 
BO Oboe 1850 MOVW UCBSW_MS_SPACNT(R5) ,UCBSW_ MS_XC(R5) ;COPY COUNT 
QO8BE 1851 sFALL INTO CODE TO LOAD COMMAND 
3¢) 0s 088 1338 MOVZWL UCBSW_MS_SPACNT(R5),- ; Maximum size record takes one second 
O8C2 185 UCBSL MS. “TIMOUT (RS) : to skip (approximately). 
Di O8CS 1854 CMPL g : Compare time to ski¢ entire tape to 
08CB 1855 UCBSL “AS. TIMOUT (RS) : time to skip this # records. 
18 +493 1856 BGEQ 9 : GEQ implies Saippine small # records 
3C 0800 1857 MOVZWL #11*60,- s a use maximum time to skip whole 
pe0s 1858 UCBSL _AS _TIMOUT (RS) 3 tape. 
11 0807 1859 BRB ; And branch around. . 
co OBOE 1909 10s: ADDL #2,UCBSL_MS_TIMOUT(RS) ; Add in fudge factor for small skips. 
DE 186 
O8DE 1 oe +PMIS = CONSTRUCT COMMAND Apa Ae FORMAT COMMANDS: WRITE TAPE MARK 
O8DE 1864 : ERASE, WRITE TAPE MARK RETRY; CONTROL COMMANDS: MESSAGE BUFFER RELEASE, 
8DE 1865 ; UNL Ad, CLEAN; INITIALIZE COMMAND: DRIVE INITIALIZE; AND GET STATUS 
8DE 1 66 : COMMAND : GET STATUS IMMEDIATE. 
BDE 186 
8DE 1 $8 PAIS: 3 
31 poe ! $° BRW LOTSDOB 3GO LOAD DEVICE REGISTER 
+ ' 4 3; PWCH = CONSTRUCT COMMAND PACKET FOR WRITE CHARACTERISTIC COMMAND 
p —E1 1875 PWCH: POINTS TO COMMAND PACKET 
d0 E1 1874 MOVL UCBSL_MS_TSPT2(R5) MS BAETERID sSTORE CHAR. BUFFER ADDR. 
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EXECUTOR : ep -1984 00:18:15 UORIVER. BUGSRCITSDRIVER.MAR; 1 


T(R1) :POINT TO CHAR. BUFFER NOW 
(R1) {STORE BYTE COUNT FOR CHAR. 
TSPT2(R5) .MS_MBAO(R1) : STORE me ssace "BUFFER ADDR. 
AO(R1) AS CHAR. DAT 
(R1) tLENGTH OF PHAR. DATA=14. 
MS_ EHUB IRI) :ZERO CHARACTERISTIC WORD 


; NOW, COMMAND PACKET IS SETUP, READY TO LOAD DEVICE REGISTER 


LDTSDB: 


> HERE, 


PWRFL1: 


oucesy arover 
UFIKPCH NSTROT. Utes. 
1OF ORK 


3TS11/TS04 i | | enditthaes 
TERRUPTS 


“DISABLE IN 
R5),PWRFL1 ;BR IF POWERFAILED 


STS( 
(R4) ;LOAD THE COMMAND POINTER 
out cr§) 


sMAKE IT FORK FIRST 
:PROCESS TERMINATION COCE 


TREAT POWERFAIL AS TIMEOUT 


ENABLE INTERRUPTS 
GOTO TIMEOUT ROUTINE 


; PXFR = CONSTRUCT COMMAND PACKET FOR DATA TRANSFER COMMANDS: 


: READ NEXT (FORWARD) 
REREAD NEXT(SP 
: AND ORTTE SUBSYSTEM MEMORY 


PXFRRD: 
BBC 


10$: 
PXFR: 


PXFRR: 


#UCBSM_MS_RDPR,UCBSW_DEVSTS(R 


OADUBAA OAD 
MOVZWL UCBSW_BOFF(RS).RO GET BYTE 0 
MOVL  UCBSL~CRB(RS) ,R1 cre 

CRBSL inepeveesy _MAPREG(ATD 0 ,#9,RO ; INSERT HGH 9 BITS 


READ PREVIQUS(REVERSE), REREAD PREVIOUS(SPACE REV, READ 
ACE ee READ REV), WRITE DATA, WRITE DATA RETRY, 


; REREAD COMMANDS ENTER HERE. 


#10S$V_OPPOSITE, - ; Branch if opposite bit not set. 
UCBSW_FUNC(RS), 10$ 
MS_CPHD_M - : 
D(RIT 3 command hea 


; If its ost. prepagete it to the 
3; Then rejoin commen code. 


stENTRY PT FO 
s**WHICH USES 


E 
STER 
E 


MS 5 4 ee Rl = GET —. PACKET ADDR. 


BACT(R1) ADDR. 
meee _MS_SWAP ,UCBSW_ pease Re HAR 12$_ BR IF INDUSTRI. COMP. 
(SET BY v SEI TCHAR COMMAND ) 
#10$V_SWAP,UCBSW_FUNC(RS),15$ :SWAP BIT SET? 
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Voenour HARDWARE COMMAND € gous 873982 00:18:15 LORIVER. BUGSRCIJTSDRIVER.MAR; 1 7 3) $ 
05 F " 
3$ 19 : 12$: " 
61 1000 8F AB 44 19 S ons BISW § #MS_CPHD_M_SWB,MS_CPhD(R1) ;YES, SET IT IN CMD HEADER " 
06 Al 7E AS BO 0975 1931 MOVW  UCBSW_BCNT(R5S),MS_CNT(R1) ;STORE BYTE COUNT " 
a a? B80 aA 1932 MOVW  UCBSWIBCNT(R5),UCBSW_MS_XC(R5) ;COPY BYTE COUNT " 
980 1933 DSBINT : DISABLE INTERRUPTS m 
4B 64 AS 05 £0 0986 1934 BBS #UCBSV_POWER yeas STS(R5),20$ ;BR IF POWERFAILED " 
64 O0BE C5 B80 09 8 1935 MOVW UCBSW_AS TSPf5«R5 (R4) tA AD THE COMMAND POINTER m 
330 19 6 WF IKPCH MSTMO,#*B2 s TIMEOUT FOR 20. SEC.'S 1 
00000000'GF 16 O9A0 13 8 JSB G*1OCSPURGDATAP ;PURGE DATAPATH " 
33 9A6 1939 BLBS 368R IF NO ERROR 4 
00c7 cS —(01s«C9800 O9AY 1940 on MOVB #1,UCB$B_MS_PER(RS) [MARK PURGE ERROR n 
26 64 AS 05 €0 O9A 1948 BBS #UCBSV_POWER, ucesu STS(R5) 3218 BR IF POWERFAILED " 
098 194 :t# WANT TO SAVE DATAPATH REG. e ere FOR ERRLOG 4 
OOF ¢ C5 A2 0985 1944 SuBw = UCBSW_MS RBPC(RS), UCBSW eu _XC(R5) :GET BYTES ACTUALLY XFERRED " 
00c8 C5. 551.—s«&DOsOO9BA «1945 MOVL  R1,UCBSL_MS_DPR(RS) :GET DATA PATH REGISTER " 
37 A390 -«O9BF «1946 MOVB CRBS$L_INTD+VEC$B_DATAPATH(R3) ,- m 
00c6 c5 O9ce 1947 UCBS$B-MS_DPN(RS)~ :GET DATA PATH NO. m 
51 7C AS 3C O9CS 1948 MOVZWL UCBSW_BOFF (RS) ,R1 :GET BYTE OFFSET mM 
00cé6 cS) =—«495.:09C9 «1949 TSTB UCBSB~MS_DPN(R5) [DATAPATH NO.=O(DIRECT)? N 
0D 12 O9CD 1950 BNEQ $ NO P 
51 OOFC CS AO O9CF 1951 ADDW UCBSW_MS_RBPC(RS),R1 sYES, REVERSE OPERATION P 
0B 11 0904 1958 BRB 24$ :SKIP AROUND P 
0906 195 P 
0906 1954 ; P 
0906 1955 : HERE, TREAT POWERFAIL AS TIMEOUT P 
0906 1956: P 
0906 1957 P 
0906 1958 208 P 
0906 1959 ENBINT sENABLE INTERRUPTS a 
09D9 1960 21$ k 
0215 31 0909 1961 BRW MSTMO ® 
090C 196¢ R 
90C 1963 22S: R 
51 0004 C5 AO O09DC 1964 ADDW = UCBSW_MS_XC(RS),R1 :GET FINAL ADDR. OFFSET R 
09E1 1965 24$: R 
51 7 8F 78 pe! 1966 ASHL #<=9>,R1,R1 sMODULO 512 : 
50 34 A3 3C 0966 1967 MOVZWL CRBSL_INTD+VECSW -MAPREG(R3) RO ;MOVE START MAP REG. NO. S 
51 50 (CO O9EA 1968 ADDL  RO,R1~ “HAS FINAL MAP REG. NO. S 
9ED 1969 zseR2 wade START pADDR. OF 1ST MAP REGISTER 5 
9ED 1970 "##R3 HAS CRB ADDRESS s 
9ED 1971 tee WHICH WERE “GOTTEN FROM INCSPURGDATAP 5 
51 O1EF 8F B81 O9ED 1978 CMPW 0s #4951 i LEGAL MAP REG. NO.? S 
14 O9F2 197 BGTR 25% :BR YES A S 
51 O1EF BF 3C O9F4 197% MOVZWL #495,R1 fF yee MAP REG. NO.=495 5 
OOCC CS 6241 DO O9F9 1975 MOVL (Red ERI] ycesi nih PMERIRS). Moke FINAL MAP REG 5 
C Aes v0 Has 1976 MOVL  =-4(R2)CR1),UCBSL_AS_PMPR(RSS ;SAVE PREVIOS MAP REG ; 
0004 C5 6241 DO OA06 1977 MOVL (n2)CR1],UCBSL_Ms MS_NMPR(RS) SAVE NEXT MAP REG(=495) 5 
1E 11 OAOC 1978 BRB 27 EAD § 
AOE 1979 258: SLEGAL MAP REG. NO. § 


TSDRIVER = VAX/VMS Ts11/7S04 EMAGTAPE SUBSVETER DR =gAN-1 5 17:35: AX/VMS Macro v04-00 P 4 T 
Vounour HARDWARE COMMAND EXECUTOR mrt Fa UAE Fe Pees Sh te i dt § 
oocc S 6241 0 AOE 1980 VL  (R2)CR1],UCBSL_MS_FMPR(RS) :SAVE FINAL U 
00 £5 gi cE A1& 1981 MNEGL #1,UCBSL_MS_PMPR(RS) “ASSUME NO PREVIOUS nee REG U 
Di OAI9 “9 : CMPL = RO. RT il WAS FINAL A MAP REG. ois! U 
13 OAIC 19 BEQL 6-26 ES, THE RE WAS NO PREVIOUS ONE U 
FC A24] Dd ¥ 1984 MOVL  =4(R2)CR1), UCBSL 7RS PMPRC (R5) ;OTHERWISE,SAVE PREVIOUS MAP REG Y 
A2S 1985 26$ U 
04 A241 D0 x 3 138 MOVL 4(R2)CR1],UCBSL_MS_NMPR(RS) ;SAVE NEXT MAP REG u 
A2C 1987 278: U 
006 cs 5 A ¢ i: IsTB CBSB_MS_DPN(RS5) test IF DIRECT DATAPATH? u 
A32. 1990 “#RELEASE DATAPATH AND MAP REG. * S U 
A 1991 ASE DATA PATH U 
68 AS 20) «AA OA 8 199¢ -_ BICW  #UCBSM_MS_RDPR,UCBSW_ pevirsins) 7CLEAR FLAG v 
OAS¢ 1994 " _ RELMPR SRELEASE MAP REGISTERS y 
0D 11 ve: 1996 BRB xTC1 : U 
0A44 199 U 
bace 1999 r 
0A44 2000 : XTC = PROCESS TERMINATION CODE U 
0A44 2001 : HERE, THE FINAL STATUS CODE IS PUT IN RO, & U 
OA44 00¢ ; THE DRIVE STATUS IS RECORDED INTO UCB U 
OA44 2003 : U 
BA BRE anc 
00c4 cs 85 OAd4 006 ; Ist UCBSW_ MS_XC(RS) : SHOULD ANYTHING XFERRED? y 
OOFC CS) = A2 «(OAGA «2008 SUBW  UCBSW_MS_RBPC(RS) ,UCBSW_MS_XC(R5S) ;GET ACTUALLY XFERRED U 
poe OAS 2009 xIC1: U 
07 €1 0A51 2010 "BBC #MS_XSRO_V_MO ;D1D TAPE MOVE? U 
04 OOFE C5 OA53 2011 ucesi mS “XSRO(AS), 7$ U 
4605 O07 AA OAd7 Org BICW ect isn BOT! i CLEAR Bor. AND y 
OAdB a4 7 MTSM~ -Eotsa-16, UCBSL pevedtane echis': [END OF TAPE 
03 01 EF OASB 16 ; EXTZV  #MS TSSR_V TCC,AMS TSSR_S_TCC,~ ;EXTRACT TERMINATION CODE 
50 00c2 C5 AS 1 UCBSW_MS~ ~¥SsRikS) RO “INTO R 
Ong 18 CASE RON :DISPATCH 10 ROUTINES 
Ab 19 1008,- :NORMAL TERMINATION 
OA 0 1108,~ SATTENTION CONDITION 
A 1 1 $:- "TAPE STATUS SLERT 
Ong : 1 Os. REJECT 
Ab 140$.- TRECOVERABLE ERROR(TAPE MOVED) 
OA62 2024 150$.- [RECOVERABLE ERROR(TAPE NOT MOVED) W 
A6 5 1608. - SUNRE COVERABLE ERROR TAPE Post LOST) W 
Ab 6 1 0$.- TFATAL CONTROLLER ERRO ¥ 
A : Ww 
A76 3 : FATLAL CONTROLLER ERROR(TCC=7) w 
Ae 0 | 
A76 170$ ; 
50 0054 8F 3C OA76 § MOVZWL #SS$_CTRLERR,RO [PUT IN FINAL STATUS CODE 
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50 
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FD16 


46 05 10 
008C BF 
05 OOFE c3 
O1A4 BF 


FCFF 


50.001 


009c ¢5_——s 02 
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009C D5 


8 
06 OOFE C 
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DE 
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00 
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BRW FATALERR ;GOTO FATAL ERROR 


: : UNRECOVERABLE ERROR(TAPE POSITION LOST) 
(TCC=6) 


s0ess 
BISW 3s #<MTSM LOsTa=16>, UCBSL_DEVDEPEND+2(R5) ;MARK POSITION LOST 
MOVZWL #SS$_DRVE RO :PUT IN FINAL status ODE 
BBS i CHECK IF ON-LI 


SR 
UCBSW_MS “Oa, 165$ iBR IF YES 
MOVZWL #SS$_MEDOFL :NO, RETURN MEDIUM OFFLINE 


BRW FATALERR 3 


165$: 


: NORMAL TERMINATION 
(TCC=0) 


100$: $ 
eal MOVZWL #SS$_NORMAL,RO [PUT IN STATUS CODE 
"ADDL 2,UCBSL_DPC(R5) ZADJUST TO CORRECT RETURN ADDRESS 

JMP sutBSe _DPC(RS) :RETURN TO DRIVER 
: ATTENTION CONDITION 
DRIVE HAS UNDERGONE STATUS CHANGE SUCH AS GOING OFFLINE OR COMING ONLINE 
1108: 

BBC #MS_XSRO :CHECK IF ONLINE? 

ucBsu ws “HSROCAS) 112$ :BR IF OF Ful NE. 
MOVZWL CC REN; BECOME ONLIN 
i SHOULDN' T Have BEEN OF FLINE 
—_ ERW 150$ SRETRY THE COMMAND 
"  POVB  UCBSB_CEX(RS),RO : GET HARDWARE | , COMMAND INDEX 

CMPB = #CDHCTUNL,RO [WAS IT UNLOA 

BEQL =s«*10 :YES, ITS OK 

MOVZWL #SS$_MEDOFL,RO [MARK AS MEDIUM OFFLINE 

BRwW FATACERR GOTO FATAL ERROR 
; TAPE STATUS ALERT 
:(BITS OF INTEREST: LET, RLS, EOT, RIB, AND RLL) 
eae iT 1s COCICAL MEAD OF TAPE FOR BOS, NOT USED FOR NOWee 


; The reverse into BOT must return the status SS$_NORMAL becasue 
3 at this time —— depends on this fact and that is how the 

; other tape drivers work. This has been modified again. So that the 
3; read reverse which BAKCUP doesn't depend on returns SS$ SENDOFFILE 
3; when it encounters the BOT marker. 


120$: 


BBC #MS_XSR3_V_RIB,- TREVERSE INTO BOT? 


er a 


(3) 


P 
I 
C 
P 
$s 
P 
$ 
P 
Cc 
A 
T 
1 


6 
vos-O01 caRSSCREScESANSSP4eEMEDAPE SUBSYSTEN OR frametegs 7:45:89 YAKS mare YOLSOO see mani f" f 


16 0104 gs AC 3 UCBSW_MS XSR3(R5) 1218 ; 
46 AS AB OAC BISW 0 R<AT Ta-16>, UCBSL_DEVDEPEND+2(R5) ; YES 
0080 § 4 OAC 9 CLAL UCBSL RECORD (RSS 
0092 C F 1 QAC 3¢ CMPB #COHC_ROP ,UCBSB_FEX(RS) ; Is this a read reverse? 
‘ 2 OAD 9 BNEQ : If NEQ then return NORMAL code 
50 0870 8F ‘ ADS 36 MOVZWL 4 ENDOFFILE,RO 3; Take error return. 
BD AD9 209 BRB 101$ 
ADB 38 121$ 
Of E1 OADB 2100 BBC #MS_XSRO_V Ri - ;CHECK IF RECORD LENGTH LONG? 
07 oore ¢ ADD 2101 UCBSW_MS~XSRO(RS).122$ :TAKE NORMAL RETURN, IF NOT 
50 0838 8F 3¢ AE] gi é MOVZWL #3$$_DATROVERUN,RO YES, ITS DATAOVERRUN 
B0 Aes F sass BPB 1 STAKE NORMAL RETURN 
OF €1 OAEB 2105 BBC #MS_XSRO_V_TMK,=- :CHECK IF SEE TAPE MARK 
21 ore ¢3 AEA 21 6 UCBSW_MS~XSRO(RS) 1258 32? 
46 A 2 AaB OAEE 21 BISw  #¢MTSA_EOFa-16>,UCBSL_DEVDEPEND+2(R5) ; YES 
0092 ¢5 616 0«91s«OOAF 108 CMPB = @COHC_OTM,UCBSB_FEX(R5) ;WAS IT WRITE TMK? 
16 13 OAF? 21 BEQL si [YES, LOOK FOR EOT 
0092 ¢5 i 94 Arg 110 CHPS ’ DHC_STR.UCBSB_FEX(R5) :WAS IT SKIPFILE REVERSE? 
0092 cS (02.~—=C«S : 118 CMPB #COHC_STF .UCBSB_FEX(RS) tWAS IT SKIPFILE FORWARD? 
1A 13 1 BEQL 1288 :¥ 
7? 2114 -**NOTE UCBSL_RECORD WAS ADJUSTED** 
50 0870 B&F 3 7 2115 MOVZWL #SS$_ENDOFFILE,RO ; F 
FFB9) 31 oc 116 Pais RWW 101$ STAKE NORMAL RETURN 
00 €1 OBOF 118 BBC #MS_XSRO_V_EOT,- rCHECK IF AT EOT? 
OC OOFE C5 11 211 UCBSW_MS"XSRO(RS),1288 : 
46 A504 ABS 0B15 2120 BISW #<MT$A EDTa-16> UCBSL_DEVDEPEND#2(R5) sYES, SET FLAG 
50 0878 BF c 19 1 MOVZWL #SSS_ERDOF TAPER sWRITE ERROR INTO EOT 
1 21 § 128$: ‘ ZANYTHING ELSE? 
3 ee * 
FF71 31 : ¢ BR 100$ TAKE NORMAL RETURN®**TEMPe®* 
4 1 3 
4 21 5 > FUNCTION REJECT 
6 21 2 3(BITS OF INTEREST:BOT,WLK,VCK,ONL,ILA,ILC,NEF,WLE) 
4 3 (T¢C=3) 
B24 2131 130S: 
50 008 8F 3C 0B24 21 ; MOV7WL #SS$_DRVERR,RO :MARK AS DRIVE ERROR 
01 €1 0829 21 BBC S_RSRO_V_BOT,- “CHECK IF AT BOT 
08 OOFE C5 134 UCBSW_MS"XSRO(RS),132$ : 
46 A 1 AS OBCF 2135 BISW  &#<MT$M_BOTA-16>,UCBSL_DEVDEPEND+2(R5) . YES 
0080 CS 4 «OOk ; : sas CLRL —- UCBSL_RECORD(RSS 
04 €1 0837 21 aac #MS_XSRO_V_VCK,- [WAS VOLUME CHECK? 
06 OOFE <5 B39 139 UCBSW mS“XSROCRS) 1348 ; 
1 af AB 83D 2140 BISW  #UCBSA_MS_VCK,UCB$w_DEVSTS(RS) ;YES.RECORD 11 
141 1348: 
E1 0843 214 BBC #MS_XSRO_V_WLE,- ICHECK IF WRITE LOCK ERROR 
99 Ore 8 # 128 uCBSW mS -XSROCAS) 1368; 
46 A B AaB 0B49 2144 BISW #<MTSR_HOL@-16>,UCBSL_DEVDEPEND+2(R5) ; YES, SET FLAG 
SO O25c BF o3C BAD 165 reas MOVZWL #SS$_WRITLCK,RO ;HARK AS WRITE-LOCKED ERROR 


= Lay gE ANTAL 


H 6 
yore SUBSYSTEM DOR 97 40N 198? Ao 33:32 ever Macro 


me 


s 
DRIVER .BUGSRC SORIVER. MAR; Saas (3) 


BBS :CHECK IF ONLINE 
vcaSu. ne cHsmOCAS), 138$ :B8R IF YES 
MOVZWL #SS$_AMEDOFL,R MARK MEDIUM OFFLINE 
BRW FATALERR STAKE FATAL OR HARD ERROR RETURN 


VERABLE ERROR(TAPE MOVED) 


a a 


ONOUEWN —OOONOUFS UT —-OOOn 


ae ERROR(TAPE NOT MOVED) 
4 OR 5) 


BBS #1OSV_INHRETRY,UCBSW_FUNC(RS),155$ IF SET, RETRY INHIBITED 
CVTWL OUcBSL hg? re! % GET BRANCH pte aceneat 


ADDL (SP)+ Ores. pECR5) i CALCULA TE RETURN ADDRESS -2 
ADDL #2,UCB “ADUST TO CORRECT RETURN ADDRESS 
JMP ttt te att TRETURN TO DRIVER 

BRW 170% ;RETURN AS FATAL 


vant 
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o 

o 
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1/TS04 MAGTAP ussySrER DR 8-JAN-1985 17:35:59 VAX/VMS Macro y04-00 p 
ERRUPT SERVIC Be TINE g: 18-1982 boi t8i38 YORIVER.BUGSRC TSDRIVER.MAR: 1° 
-SBTTL TS11/1S04 INTERRUPT SERVICE ROUTINE 
 TSSINT = 1S11/1S06 MAGTAPE INTERRUPTS 
os > THIS R TINE 1s NTERED VIA A JSB INSTRUCTION WHEN AN INTERRUPT OCCURS 
i ; ON TS11/TSO4 CONTROLLER. THE STATE OF THE STACK ON ENTRY IS: 
7? ; P) = ADDR. OF 108 ADDRESS 
28 : elie P) = SAVED 1h RS 
79 : 3SP) = INTERRU 
3 6(SP) = INTERRUPT PSL 
; : INTERRUPT DISPATCHING OCCURS AS FOLLOWS: 
4 + (MUMBLE ) 
3 TSSINT:: 
MOVL  a(SP)+,R3 3GET ADDR. OF 108 


3GET bdr i. AND ute ADOR. 


[COMMAND PACKET 
GET Device REGISTER’ TSBACTSDB) 
mOVW otras. cBSu nse! PEeRtRS ) GET TSSR INTO UCB 


31 

38 

94 BBCC  #UCBSV_INT,UCBSW_STS(RS),10$ :IF CLR, INTERRUPT NOT EXPECTED 
95 MOVW MS_MHDTRO).UCBSW-MS_MHD(RS) ;SAVE MSG BUFFER IN UCB 

96 


MOVL § MS_LNH(RO),UCBSW_MS_LNH(RS) ;SAVE NEXT LONG WORD 
97 MOVQ  MS_XSRO(RO),UCBSW_MS_XSRO(RS) ;SAVE REST OF MSG BUFFER 
98 MOVL ucest FR3(R5),R3 ;RESTORE REMAINING DRIVER CONTEXT 
TT os J$8 aucesC_FPC(RSS :CALL DRIVER 
ere MOV = (SP) +, RO SRESTORE REGISTERS 
§ mova (SP)+, *R2 : 
MOV = (SP)+_RG 3 
7 REI TRETURN FROM INTERRUPT 


: NON-0 10 RESPONSE INTERRUPT 


1 


0S: 

if BBSC #UCBSV_MS_LBA,UCBSW_DEVSTS(RS),20$ ; YES. LOADING BUFFER ADDR.? 
ig RaB 5$ : Branch to dismiss interrupt. 

14; 

13 : HERE, WAS LOADING BUFFER ADDRESS 

7 208: BBS - #MS_TSSR_V_NBA 

18 UCBSW_MS"TSSR(RS) 5S ;FAIL TO LOAD BUFFER ADDR. 

HI : BUFFER ADDRESS LoaneD SUCESSFULLY 

2 : DO RELEASE MESSAGE BUFFER TO TS11/TS04 


4 
(3) 


TSDRIVER = YAX/VMS TS11/TSO4 MAGTAPE SUBSYSTER DR B-JAN-1985 17:35: AX/VMS Macro y04- P P 
youn aye Ts\474¥0e INTERRUPT SERVICE ADUTINE Breet 8e. bo: t8:3s EORIVER.BOGSRCSSSoRGvER.maRs Te” 9) 
¢ 
C 4 $08: 
C 5 peemusT BE AT BOT 
46 A 1 as OBC 8 BISW —#<HTSH_BOTO-16>,UCBSL DEVDEPEND+2(R5) :MARK IT 
1A 64 A 5 £1 OBC BBC #UCBSV~POWER ,UCBSW_STS(RS), 358 oR IF NOT PoweRr AL 
15 68 A EO 08D : BBS #UCBSV~RS_RPI UCB @_DEvsTSiRd), $ ;BR IF REPOSITION IN PROGRESS 
09 68 A E1 08D BBC #UCBSV ENS 5 SWE /UCBSW-DEVSTS(RD) 548 ;BR IF NOT SOFTWARE EMULATION 
9900 C300 OBDA 0 MOVL  UCBSL_AS_PMPR(RS) ,UCBSL_MS_TPOSITN(RS) ;GET FROM ELSEWHERE 
07 «(11 el at os BRB 358 
9080 ¢5 0 3 ; "MOVE = UCBSL_RECORD(RS) ,UCBSL_MS_TPOSITN(RS) ;SAVE TAPE POSITION 
EA 4 358: 
0080 (5 D4 OBEA 5 CLRL —- UCBSL_RECORD(RS) : 
EE 6 : WHICH TELL TAPE POSITION 
FFBF = 31 OBEE , BRW 5$ :DO RETURN FROM INTERRUPT 
OBF 1 9 


Oe Oe Oe Oe Oe Oe Be Oe Oe Oe 


6 
TSDRIVER = VAX/VMS 1S$11/TSO4 MAGTAPE SUBSYSTEM DR -JAN-1985 17:35:59 yA X/VMS Macro v04-00 Pa age 49 
v04-001 TIMEOUT HANDLER 984 07:18:15 CORIVER.BUGSRCJTSORIVER.MAR; 1 (3) 
F1 2261 .SBTTL TIMEOUT HANDLER 
Fi tg 7*MSTMO = HANDLES TIME-OUT WH EN TS11/TS04 DOES NOT INTERRUPT AFTER 
Fl 2043 : A HARDWARE AND ISSUED FOR A SPECIFIED PERIOD OF TIM 
BF1 2244 ; THE ROUTINE DEALLOCATES DATA PATH AND MAP REGISTER IF IT'S DATA 
F1 20245 ; TRANSFER C GHINAND , AND ABOR E 1/0 OPERATION. 
OBF 46 ; IF IT WAS DUE TO POWERFAIL, REPOSITIONING IS ATTEMPTED, AND 
F] 4 : THE TIME-OUTED IRP IS RE-ISSUED 
OB é3 > INPUT: 
BF 51 : OUTPUT: 
per 26 -ENABL LSB ;ENABLE LOCAL SYMBOL 
OBF1 2254 MSTMO: 
OBF1 2255 SETIPL UCBSB_FIPL(RS) WER IPL TO DEVICE FORK LEVEL 
OBF 5 36 *ASSUME N o purciNG F DATAPATH FOR TIMEOUT#* 
06 68 AS) «(05)~=«CES:s«C(OBFS «325 BBCC #UCBSV ns. RDPR, UCBs DEVSTS(R ),1$ IF DATAPATH NOT REQUESTED 
OBFA 38 - RELDPR RELEASE patan PATH 
0C00 2260 — RELMPR ;RELEASE MAP REGISTERS 
04 11 0C06 61 BRB 2$ ; 
0C08 $¢ > TIMEOUT FOR NON-1/0 XFR OPERATION 
OCOB 2264 : 
at $2 MSTMO1 
0c08 e ~ " SETIPL UCBSB_FIPL(RS) SLOWER IPL TO DEVICE FORK LEVEL 
05 €&6 OCOC 2269 BBSC  #UCBSV_POWER,- : Branch around to reposition if 
03 64 A5 OCOE 2270 UCBSW_STS(R5) ,5$ : we had POWERFAIL. 
OOCF 31 ocii 4 BRW S08 
Oci4 rs t HERE, CHECK DRIVE OFF-LINE UNLOADED OR NOT 
cle e673 
FSE9 «930 «0C14 2277 BSBW =s TESST_NBA ; Test to assure we DON'T need 1S11 
0C17 78 ; message buffer address loaded. 
03 50 €8 OC17 2279 BLBS = RO, 6$ : LBS rinplies TS11 READY and able. 
B77 1 OCIA 0 BRW FATALERR : not ready, we can't even 
pele 1 6s s 2} m. to reposition. 
00000000°GF 16 0C1 : ; JSB G*EXESREAD_TODR :GEY CURRENT TIME OF DAY 
000005D¢ F CO C 3 rs ADDL  #1500,R0 ZADD 15 SEC. TO WAIT 
77 a5) 6550—s«é c A 5 MOVL RO, UCBS$W_BOFF (RS) :STORE IT IN UCB 
¢ E $ : HERE, GET TS11°S CSR EQUIVALENT INTO R4 
tSE i 
CoE 2291 DSBINT ;DISABLE INTERRUPTS 
C % WFIKPCH 8$,#2 ;WAITFOR iN TERRUPT OR TIMEOUT 
tie 3 8$ aceon . 
(44 2295 SETIPL UCBSB F IPL (RS) SLOWER IPL TO FORK LEVEL 
C48 2296 EXHC = FAIL, AC_RWD [DO A REWIND 


a  , 


6 
TSOR R = VAX/VMS 1S$11/TS04 TAP -JAN=- 735: - 
VRDR INE VAX/VMS TS S04 MAGTAPE SUBSYSTER DR g- JAN 138? 4:33:38 aes: Macro v04-00 Page 7 


TIMEOUT HANDLER SEP-1984 00 DRIVER.BUGSRCJTSORIVER.MAR; 1 
0020 31 OC 97 BRW 9s ;BR IF SUCCESS=>DRIVE ONLINE 
: FAIL: 
: : ; HERE, TO SEND MESSAGE TO OPERATOR TO INFORM DRIVE OFFLINE 
¢ 2 
00000000'GF 16 OC § J$8 G*EXESREAD_TODR 3GET CURRENT TIME OF DAY 
7c aS) «650 «1s 4 CMPL =—- RO, UCB$wW_BOFF (RS) 315 SEC. PASSED? 
CF 3«61B «(OCSD 5 BLEQU 7$ 7NO , GO TRY AGAIN 
er $309 
54 00'BF 9A OCSE 08 MOVZBL #MSG$_DEVOFFLIN,R4 ;SET MESSAGE NUMBER 
00000000" st 9E 63 MOVAB G*SYSSGL_OPRMBX,83 ;GET ADDRESS OF OPERATOR MAILBOX 
00000000'GF 16 OCGA 10 JSB G*EXESSNDEVMSG ;SEND MESSAGE TO OPERATOR 
FFAA 31 «(OC 11 BRW st : 
ee 
O¢f 1 ; OTHERWISE DO REPOSITIONING TAPE 
0C¢7 1 $s: 
0800 af Ag OC? 31 BISW #UCBSM_MS_RP1,UCB$W_DEVSTS(RS) ;FLAG REPOSITION IN PROGRESS 
0C79 2318 EXHC 50$,HC_RWD ;D0 REWIND 1ST 
ocgi 19 me ; @ CLEAR UCBSL_RECORD 
900 C3 D1 ocb) $f "(MPL UCBSL_RECORD(RS) ,UCBSL_MS_TPOSITN(RS) ;CHECK REPOSITIONING 
46 13 0C88 2322 BEQL «808 :BR IF YES 
9080 C3 01 OCBA 32 CMPL = UCBSL_RECORD(R5) ,UCBSL_MS_TPOSITN(RS) ;:1S IT GTR THAN 
3314 «091 33 4 BGTR 50% BR IF YES 
"= 9080 CS C3 2¢93 325 SUBL3 UCSSL_RECORD(RS) ,UCBSL_MS_TPOSITN(RS),RO ;GET WHAT'S LEFT 
00007F FF af D1 0¢96 2326 CMPL ss @*X7F FF RO SLESS THAN 32,768? 
09 14 OCA2 33 7 BGTR 208 BR IF YES 
7FFF BF BO OCA 2328 MOVW &#*X7FFF,UCBSW_MS_SPACNT(RS) ;SKIP 32,768 RECORDS TILL DONE 
0084 C5 OCA8 
05 11 OCAB 3 oa BRE 308 : 
0084 (5 «650s BO OCAD 1 ey, MOVW RO,UCBSW_MS_SPACNT(RS) ;SKIP WHAT'S LEFT 
Oce2 ‘ "  EXHC —-s« 508, HC_SREF : 
51 00C4 (5 3C OCBA 4 MOVZ2WL UCB$W_AS_XC(R5S),R1 [GET NO. OF RECORDS PASSED 
0080 <5 51s C0s«OCBF 5 ADDL  R1,UCBSLRECORD(RS) [UPDATE TAPE POSITION 
ae A cc ee BRB 10$ [G0 BACK 
0800 a AA CC 8  ——- BICW «= MUCBSM_MS_RPI,UCBSW_DEVSTS(R5) ;CLEAR FLAG, REPOSI. FAILED 
FABF CF 17 ccc 39 Jmp FATALERO ; 
cB 41 > HERE, GO AHEAD WITH THE CURRENT Q10 
CD 43 bos: 
0800 a AA dcD0 44 BICw #UCBSM_MS_RPI,UCBSW_DEVSTS(R5) ;CLEAR FLAG,REPOSITION DONE 


<= 


eee 


ge 


Pa 


- 
*e. Ww 
a “ 2 
=< a ms 
= w vA 
° _ w 
a w 
wo £ re 
| i ot oO 
| o-= [o4 « 
} oa <« a 
j ‘a a . 
i ww ny 
| ore « a Ww 
| >nm w ~ w 
; wv re e« > 
| oa =< ~ G 
| tn w en en) 
vo Ww ea «. 
a wa oer oO 
= Zo e=<zxz “CO 
> Qe co~- - ~™ 
vk au wm os 
Sw aw = 
Lee « aalaat oo w 
“es A +e 22 ¢C & 
<= « oo - w 
>w w a 
eels 4 ea eo +3 
<«~ — v 
ow Tw ee ww 
ne _ (. . 
oe NO ow - Oo | 
we ad MN c) j 
wie > *e*e *. *e i 
7 #8 ww 
ro ‘ 
--O — 
ad 
we @ 
oo vw 
an p= 
er Saad 
‘s Men w 
2a arm ow 
aw -= == 
“=n ll <= 
ees whew 2) + 
on ae -v"> © 
-ao -OuWr- 
Qad= Sweat 
« e>e- wk 
a —“c on 
i ‘= Ae fo 
oz aif — 9 
[ve PAY Ee YW 
— @a t+um <« @ 
=u VaEw «< Yue rv.) 
| oer VYOROr- =) 
@ 
2 | = 
[72) 3 vo @®@ 
oa ~ Bow <« 
w > >a @O>40270 
a 34-3 = oe Qa 
<= =~ 7 y+ sme: 4 = 
— 
oOo 
i 
=e 
w A 
Oo Oo 
” o 
— 
S=& MNOPDOO-— WMT NO 
ww FIIs 
— J ONE Rmnee 
Vio cucuCUCUCUCUCSCUCUCUCuCY 
a 
MX Oe OMOwwwws ws 
= Sc OWwwwwwwse uw 
— VUVVVVOVVVVVOVULU 
~ OOoOCCOCOCOCOOO 
P4 
aw 


ov 
one eM 


le ta 
ets] 
ow 
om 
ww ow 
oo 
Oo 
o 
oO 
oo 
ow 


> ¥ 
TIM 
0 
? 


N 6 
TSDRIVER = VAX/VMS 1TS11/TSO4 MAGTAPE SUBSYSTEM DR 8=JAN-1985 17:35:59 VAX/VMS Macro v04-00 Page 5 
v04-001 TS11/TS04 REGISTER DUMP ROUTINE met Fi 00:18:15 LORIVER.BUGSRC TSDRIVER.MAR; 1 . 2g) 
te 28  SBTTL T$11/TS04 REGISTER DUMP ROUTINE 
ere rs 3; TS_REGDUMP = TS11/1S04 REGISTER DUMP ROUTINE 
CF4 $¢ ; THIS ROUTINE IS CALLED TO SAVE THE CONTROLLER AND DRIVE REGISTERS IN A 
CF4 65 ; SPECIFIED BUFFER. IT IS CALLED FROM THE DEVICE ERRORLOGGING ROUTINE AND 
ore rt: 3; FROM THE DIAGNOSTIC BUFFER FILL ROUTINE 
a 96 3 INPUT: 
OCF4 67; RO = ADDRESS OF REGISTER SAVE BUFFER 
OCF4 68 ; R& = ADDRESS OF CSR (EQUIVALENT) 
Bere +4 3 R5 = UCB ADDRESS 
CF4 0; 
Bere 4 3 OUTPUT: 
eer? 378 ; THE CONTROLLER AND DRIVE REGISTERS ARE SAVED IN THE SPECIFIED BUFFER 
OCF4 2375 
bebe $358 TS_REGDUMP: 
80 17 +00 CF4 377 MOVL #23, (RO)+ 323 REGISTERS FOLLOW TO BE DUMPED 
80 00cCO CS 3C OCF? 3378 MOVZWL UCB$W_MS_TSBA(RS),(RO)+ :GET TSBA 
80 00c2 C5 3C OCFC 379 MOVZWL UCBSW_MS_TSSR(R5),(RO)+ ;GET TSSR 
80 00C6 CS 9A O0D01 2380 MOVZBL UCBSB_MS_DPN(R5),(RO)+ ;GET DATAPATH NO. 
80 00c8sm C5 DO 0D06 $36. OVL UCBSL_MS_DPR(RS),(RO)+ ;GET DATAPATH REG 
80 OOcc C5 DO 0D0B 388 MOVL UCBSL—MS-FMPR(R55 , (RO)+ ;GET FINAL MAP REGISTER 
80 00D0 C5 DO 0D10 38 MOVL UCBSL_MS_PMPR(R5),(RO)*+ ;GET FINAL=1 MAP REGISTER 
80 00D4 C5 DO 0D15 384 MOVL UCBSL_MS_NMPR(R5),(RO)+ ;GET FINAL+1 MAP GISTER 
51 00B6 C5 DO ODIA 2385 MOVL UCBSL MS-TSPT1(R5),R1 GET MESSAGE BUFFER ADDR 
52 OF 9A a 3387 108 MOVZBL #15,R 315 WORDS IN MSG BUFFER 
80 81 3C =6(0D22 388 MOVZWL (R1)+,(RO)+ ;COPY FROM MSG BUFFER 
0D25 $359 3**FROM MS_CPHD 6 MS_XSR3, SEE SDEFINI MS** 
FA 52 FS OD25 2390 SOBGTR R2,10 3LO 
80 00Cc7 C5 9A 0028 $30; MOVZBL UCBS$B_MS_PER(R5),(RO)+ ;GET PURGE ERROR INDICATOR 
05 OD2D 2 8 RSB 3 
OD2E 239 
OD2E 2394 TS_END: sADDRESS CF LAST LOCATION IN DRIVER 
OD2E 2395 
OD2E 2396 ~END 


<= 
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TSDRIVER = VAX/VMS 1S11/TSO4 MAGTAPE SUBSYSTEM DR 8-JAN-1985 17:35:5 AX/VMS Macro y04-00 Pa 5 x¢ 
Symbol table Bo Nn 1382 b0:38 48 LORIVER.BUGSRCSTSORIVER.MAR: 1 a 33) ve 
$$$ = 0000 g 02 DEVSV_MNT = 
$soP = Maiti: DPTSC_LENGTH 3 ¥ 
ACPSACCESS teretere Xx 0 DPTSC- VERSION s 4 
ACPSDEACCESS eererese Xx 0 DPTSIRITAB 8R 
ACPSMODIFY eeneneee xX DPTSREINITAB 8 R 
ACPSMOUNT eeeeeeee =X DPTSTAB 9 g 
ACPSREADBLK eeeenere =X DRVCLR TR 
ACPSWRITEBLK tenereee Xx 0 DT$_TS11 = 4 
AT$_UBA = 00000001 DYNSC_CRB = 5 
COHC_BRL = 00000019 DYNSC_DDB = 3 6 
CDHC_CLN = 00000018 DYNSC_DPT = 0000 ore 
COHC_DRI = 90008008 DYNSC“UCB = 00 $30) 
COHC"ERS = 0000 3 EMBSL_OV_REGSAV = 00 4 
COHC_GST = 0000001 RASE 00000705 R 03 
CDHC_NOP z 90000000 ERLSDEVICERR eeeeeere =X 03 
COHC_F 4K = 00000008 ERLSDEVICTMO eeeeeeee x 3 
CDHC_RDN = 0000000C — XESALONONPAGED eeenenee x 03 
CDHC_ROP = 0000000F EXE*SL_NONPAGED externa = xX 03 
CDHC_RPS = 00000013 EXESIOFORK aererees YX 03 
CDHC_RRN = 00000010 EXESONEPARM eeeneeee YX 03 
COHC_RRP = 00000011 EXESREAD_TODR eeeereee x 03 
CDHC_RWD = 00000003 EXESSETMODE eenereee KX 03 
CDHC_SCH = 00000014 EXESSNOEVMSG eeneeeee KX 03 
COHC_SRF = 000000 EXESZEROPARM eeeereee x 03 
CDHC_SRR = 00000007 EXIT_READ_FCNEXT O000049F R 03 
CDHC_STF = 0000000 EXIT_READ_RFCNEXT OOOO04AC R 03 
CDHC_STR = 0000000 FAIL 00000C53 R 03 
CDHC_UNL = 00000001 FATALERO 0000078F R 03 
COHC_WCK = 0000000A FATALERR 00000794 R 03 
CDHC_WDR = 00012 FCC_CPE = 00000001 
COHC_WKR = 0000000D FCC_IDF _? = 00000000 
COHC_WRC = 00000018 FCC_LAP = 00000003 
CDHC_WRD = Q000000E FCC_UPE = 00000002 
CDHC_WSM = 0000001A FCNEXT 000007AA R 03 
COHC_WTM = 00000016 FDISPATCH 00000374 R 03 
CDHC_WTR = 00000017 FUNCTAB_LEN = 00000088 

ean 00000726 R 03 GETSTS 0000073C R 03 
CLS_MDE = 00000003 HCEX 00000804 R 03 
CLS_MOF = 00000001 HCTAB 00000038 R 03 
CLS_ONF = 00000000 HC_BRL = QQOOCOBA 
CLS_OTHER = 00000001 HC_CLN = athe + 8 
CLS_PTB = 0000000 HC_DRI = 4 
ekest “tyro = Seven meee = Seoucasr 
SCE TRE : 09000063 NECNOP = $6006000 
DDBSL_ACPD = 0000001 HC_PAK = 90000000 

$L_DD = 0000000C HC_RON = eta dy 

DEVSM_AVL = 0004000 HC_ROP = 0000C181 
DEVSM_DIR = 0000000 HC_RPS s Bo 808 0 
DEVSM_ELG = nants HC_RRN = 0000C381 
DEVSM_FOD = ers $ HC_RRP z BOO 1 
DEVSM_ IDV = 0400000 HC_RWD = 0000488 

EVSA_ = 000 ; 00 HC_SCH = ere tt 
DEVSM_ODV = 08000000 “SRF = 0000C08 
DEVSM_SDI = ieee dh HC"SRR = 0000C188 
DEVSM_SQD = 00000 3 HC_STF F SET 
DEV$V_FOR = 0000001 HC_STR = 0C188 
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Symbol table ~ MARINES TSTT/TSOS PAGTAPE SUBSYSTEM OR pn 1904 OO:iB:1s LORIVER.BUESRC? SORT VER.MAR: 
y 
eeeee 8 x 
wu = ggg rarer erg 
He -UDR : 3 10CSLOADUBAMAPA easecere =X 05 
WC WOR s 0 IOCSANTV eeereree = § ¥ 3 
HC_WKR oo COB4 LOCSPURGDATAP geeerere x 03 
wane = 0000085 1OCSRELDATAP eeserere =X 03 
Neuse = 9000¢088 LOCERELRAPREG ccccmees OS 
+ BL = 0000289 1OCSREQDAT AP ceeeeses, XO8 
TBS = 00000000 10 $REQMAPREG sours a ae 
IDBSL_CSR : 00004 IOCSRETURN geeeeree x 03 
1OSACROWAT! 2 19000080 1OCSWFIKPCH sooooess 
foe anime Ty = 8000090 Ines -SHAete = B00 
1O$V-REVERSE = 90000006 Le ODE = 00000006 
10$V~SWAP = 00000008 es ta = 00000000 
ee accee : BREE PHF = 3333888 
fs Sev alley = 00000011 IRPS$V-VIRTUAL me 1444 
1OS-CLEAN = Soooees IRPSUTSTS = 0000003A 
1OS-DEACCESS = 90000034 LDISD 0000008 
1OS-DELETE = 90000055 mater = 04000000 
[oe -Pevete = 00000006 MEDIA ID_TS11 = 6CE9300B 
1OSMODIFY = = 00000936 MMGSGC_SPTBASE eee ee 
10$_MODIFY = 00000039 MSSDDT~ 00000000 RG = 03 
1oe-nob = 00000000 MSGS_DEVOFFLIN eeeseees XX 03 
10$_NOP = 00000008 MSGREL 00000710 R 03 
10$_PACKACK -. 00000021 MSG ATN = 00000013 
10$_READLBLK as 0000000C MSG END = 00000010 
10$_READPBLK = 00000019 MSG ERR = 00000012 
10$~READPRESET = 90000015 ny Mey = 00000011 
OSTREREADP = 00000017 MSTA poo, © 
10$~REWIND = 90000034 ie 00000002 
10$_REWINDOF F _ 0000001 ~CHWD 30000006 
10$- SENSE CHAR . sits fg MeCNT 0000006 
10$_SENSEMODE = 00000067 “fal 00000000 
10$_SETCHAR = 000000 MS~CPHD_M_ACK = 00008000 
ieee ee = 90000095 MS~CPHD-M7CVC : ent 
10$~SKIPRECORD = 90000036 ae a = 099090 ; 
10$_SPACEF ILE i 0000009 MS CPHD "M7 SWB = 00 St 99 
10$~SPACERE CORD = 90000005 “tN 0000001 
1O$"UNLOAD = poppet MS"LNTH 9000000C 
10$~ VIRTUAL . BOA MS" ABAO 0000008 
fwat nae = sare Hh san 
10$-WRI TEMARK = Bons ° § mS"RBPC 099 14 
108 uns TE OF = 000000 MS-TSSR_S_TCC = 99000005 
10$_uRITEPBLK = 0000001 MS~7SSR-V"NBA = OA 
LOS"WRITERET ae Oot MS"TSSR-V7SSR : 0 0 07 
OST URTTHINR: = 0000001D MS_1SSR-V~TCC = 90000001 
IOCSCANCELIO sscceqee | § > - 
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Symbol table “SEP-1984 00:18:15 CORIVER.BUGSRCITSORIVER.MAR; 1 (3) 
MS_XSRO_V_BOT s 94 SS$_NORMAL s 1 
MS-XSRO_V-EOT 2 9 SS$_TIMEOUT = ¢ 
MS-XSRO-V_MOT = 338-VOl INV F 4 
MS"XSRO_V_ONL = 6 SS$-WRITLCK = ¢ 
MS"XSRO_V_RLL = C SYSSGL_OPRMBX aeereree =X 03 
“XSRO_V_ TMK = F TCC_ATR = 9 9 1 
MS"XSRO_V_VCK s 4 TCC_FNR = 3 
MS-XSRO_V_WLE = 0 TCC-FTL = 00 7 
MS"XSRO-V—WLK = 0000000 TCC“NML = 0 00 
S_XSR1 00 $ 1 TCC_REM = 000 Oe 
eter suepsis reef = Sovaga93 
= 
SHEE v ous - $8880 ree = $enrte 
MTSCHECR ACCESS aeeneeeer = YX 03 TEST_NBA 0000200 R 03 
TS$K_NORAAL15 = 8080 O0E TSSIAT 000087C RG 03 
TSM_BOT = 00010000 TS_END 443 13 R 03 
MTSM_EOF = 00029000 TS_FUNCTABLE 00000070 R 03 
MTSM_EOT = 00040000 TS_INIT OOO000F8 R 03 
MTSM_ = 00080000 TS_REGDUMP QOOOOCF4 R 03 
MTSM_LOST = 00100000 TS-STARTIO eats R 03 
MTSS_FORMAT = 00000004 ucB$B_CEx = 0000009 
MT$V_BOT = 00000010 UCB$B_DEVCLASS = 00000040 
MTSV_EOF = 00000011 UCBSB_DEVTYPE = 00000041 
MTS$V_FORMAT = 00000004 UCBSB_DIPL = 0000005E 
R 03 UCBSB_ERTCNT = 00000080 
PACKACK R 03 UCB$B_ERTMAX = 00000081 
PMIS R 03 UCBSB_FEX = 00000092 
R 03 UCBS$B_FIPL = 00000008 
PPOS R 03 UCBSB_MS_DPN 000000C6 
PRS_IPL = UCBSB_MS_PER 000000C7 
PwCA R 03 UCBSK-LCC_TAPE LENGTH = 00000084 
PWRFL1 e 03 UCBSK_MS_CENGTA = 00000106 
PXFR R 03 U ~ = 00000024 
PXFRR R 03 UCBS$L_DEVCHAR = 00000038 
PXFRRD R 03 UCBSL_DEVCHAR2 = 0000003C¢ 
EADDA a 03 UCBS$L_DEVDEPEND = 00000044 
READDATAR R 03 UCBSL_DPC = 0000009¢ 
READPRESET R 03 UCBSL_FP = 0000000C 
REREADN R 03 UCBSL_FR = 900010 
REREADP id 03 UCBS$L~IOQFL = 0000004¢ 
RET R 03 UCBSL_IRP = 4 Fd 
REWIND R 03 UCBSL_MEDIA_ID = sid 
RF CNEXT R 03 UCBSL_MS _D 000C 
SETCHAR a 03 UCBSL_MS"FMPR ppgce 
ao = UCBSL_MS_NMPR D4 
SPCFILFOR f 03 UCBSL_MS_OMPR ie 
SPCF ILREV a 03 UCBSL_AS_ 0000000 
SPCRECFOR m 3 UCBSL_MS_TIMOUT att 
SPCRECREV R 0 UCBSL_MS_T 5 $ OE 
SS$_CTRLERR s UCBSL_MS_TPOSITN OO00F 4 
$$_DATAOVERUN s UCBSL_MS_TSP B00 08086 
SS$_DEVOF FLINE s UCBSL-MS-TSPT2 $08 OBA 
SS$_DRVERR = UCBSL-RECO = 9 9080 
SS$_ENDOF FILE = UCBSL-SVAPTE = 39 8 
SS$_ENDOF TAPE s UCBS$L_VCB = 00000034 
$S$_ENDOF VOLUME z UCBSM_MS_FEF = 00000001 
SS$_MEDOFL s UCBSM_MS"LBA = 00000400 
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UCBSM_MS_RDPR 


UCBSV~ 
UCBS$V_VALID 
UCBSW"BCNT 
UCBS$W_BOF F 
UCB$W_DEVBUF S12 
UCBSW_DEVSTS 
UCBS$W_FUNC 
UCBSW_MS_LNH 
UCBSW_MS_ MHD 
UCBSW_MS_RBPC 
UCBSW_MS_SPACNT 
UCBSW"MS_TSBA 
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Psect synopsis ~SEP=19384 00:18:1 DRIVER.BUGSRCIJTSDRIVER.MAR; 1 (3) 


Geeoeeeeeoecececeon} 


! Psect synopsis ! 


Goeeeeoeocecesoeson> 


PSECT name Allocation PSECT No. Attributes 
. ABS . 00000000 ( $3 0 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS 00000106 ( ¢ -») QO1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$105_PROLOGUE 3 00086 ( 4.) ¢ ( ¢°) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$115_ DRIVER OOD2E ( 3374.) ( 35.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
ewan ceca n eso nr cco neeos} 
; Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 10 88: 0:00.04 99:00:81 66 
Command processing 11 0:00:00.15 Bn Bp: -56 
Pass 698 0:00:10.78 8: 0:40.78 
Symbol table sort 9 0:00:01.14 0:00:05.50 
Pass 2 41 0:00: 5-36 00:00:13.54 
Symbol table output 1 $4 .08 Ba 0:00.08 
Psect synopsis output 0 00: 8:08 - 1 0:00:00.01 
Cross-reference output 0 00:00:00.00 B83 80 80-00 
Assembler run totals 1329 00:00:14.76 00:01:03.9 


The ygrking set Limit was 2700 pages. 
180832 bytes (354 pages) of virtual memory were used to buffer gpe intermediate co 
There were 140 pages of symbol table space allocated to hold 2535 non-local and 14 
409 source Lines were read in Pass 1, produc ing 27 object records in Pass ?. 

1 pages of virtual memory were used to define 49 macros. 


de. 
9 local symbols. 


! Macro Library statistics ; 


dew eerese eer ene esac em eee ae 


Macro Library name Macros defined 
-$255$0UA18:(SYS.OB8JJLIB.MLB;1 32 
$255$0UA18:CSYSLIBISTARLET.MLS; 3 12 
TOTALS (all Libraries) 44 


2529 GETS were required to define 44 macros. 


There were no errors, warnings or information messages. 
MACRO/L 1S=L1S$: TSORIVER/OBJ=0BJ$: TSDRIVER MSRC$: TSDRIVER/UPDATE=(BUGS: TSDRIVER) +EXECML$/LIB 


